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IMPORTANT NOTICE 

ALL RADIO SHACK COMPUTER PROGRAMS ARE LICENSED ON AN 
"AS IS" BASIS WITHOUT WARRANTY. 

Radio Shack shall have no liability or responsibility to customer or any 
other person or entity with respect to any liability, loss or damage caused 
or alleged to be caused directly or indirectly by computer equipment or 
programs sold by Radio Shack, including but not limited to any interrup- 
tion of service, loss of business or anticipatory profits or consequential 
damages resulting from the use or operation of such computer or 
computer programs. 

NOTE: Good data processing procedure dictates that the user test the 
program, run and test sample sets of data, and run the system in 
parallel with the system previously in use for a period of time 
adequate to insure that results of operation of the computer or 
program are satisfactory. 

RADIO SHACK SOFTWARE LICENSE 

A. Radio Shack grants to CUSTOMER a non-exclusive, paid up license to 
use on CUSTOMER'S computer the Radio Shack computer software 
received. Title to the media on which the software is recorded (cassette 
and/or disk) or stored (ROM) is transferred to the CUSTOMER, but not 
title to the software. 

B. In consideration for this license, CUSTOMER shall not reproduce 
copies of Radio Shack software except to reproduce the number of copies 
required for use on CUSTOMER'S computer (if the software allows a 
backup copy to be made), and shall include Radio Shack's copyright 
notice on all copies of software reproduced in whole or in part. 

C. CUSTOMER may resell Radio Shack's system and applications soft- 
ware (modified or not, in whole or in part), provided CUSTOMER has 
purchased one copy of the software for each one resold. The provisions 
of this software License (paragraphs A, B, and C) shall also be applicable 
to third parties purchasing such software from CUSTOMER. 
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Overview of the Model I/III COBOL Documentation Package. 

This binder contains the information you need to use the Radio 
Shack COBOL system. It assumes you are familiar with the 
general operation of the Computer, including use of the TRSDOS 
operating system. The COBOL package is provided on two Model I 
diskettes, the Development diskette and the Runtime diskette. 
Model III users will have to use the CONVERT utility to copy the 
COBOL package to Model III diskettes. 

The COBOL system requires a minimal system of 48K RAM and two 
diskette drives. 

The package includes three manuals. 



System User's Guide 

Provides general information, start-up procedures, compiler 
commands, creation and use of a minimal-system runtime diskette, 
sample programs, and a sample session. Also included is a 
sample session and a description of the conversion procedure for 
Model III users. 



CEDIT User's Guide 

Describes how to create and edit COBOL source files, using the 
COBOL editor CEDIT, which is supplied on the Development 
diskette. 



RSCOBOL Language Reference Manual 

A complete description of the Radio Shack version of the COBOL 
programming language. Newcomers to COBOL should consult a 
standard COBOL textbook for tutorial material. 
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* * 

* ALL USERS MODELS I/III * 

* IMPORTANT NOTICE PLEASE READ FIRST * 

* * 
******************** 



Make sure you read the indicated pages for the stock number 
of the package that you are going to use. 



STOCK ADDENDUM PAGES TO READ 
NUMBER 



25-2013 MODEL I version pages 1, 3, 4, 5, 6, and 7 
MODEL III version page 2 

26-2203 MODEL I version pages 1, 3, 4, 5, and 6 
MODEL III version page 2 

26-2204 MODEL I version pages 1, 3, 4, 5, and 6 
MODEL III version page 2 

26-2206 MODEL I pages 1, 3, 4, 5, and 6 

26-2207 MODEL III page 2 

26-2208 MODEL I pages 1, 3, 4, 5, and 6 

26-2209 MODEL III page 2 

26-1149 MODEL I version page 1, 3, 4, 5, 6, and 8 
MODEL III version page 2, 8 
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******************** 

* 
* 

* MODEL I USERS * 

* IMPORTANT NOTICE PLEASE READ FIRST * 

* * 
******************** 

UPGRADE UTILITY ON TRSDOS 2 . 3B 



The MODEL I diskette in this package contains a NEW version 
of TRSDOS which is not compatible with OLD versions of 
TRSDOS, see below for further details. 

OLD TRSDOS diskettes to be used under the NEW TRSDOS MUST be 
UPGRADEd before use. Once UPGRADEd, a system or data 
diskette becomes a NEW TRSDOS data diskette. 

OLD diskettes used under NEW TRSDOS without UPGRADEing, may 
cause extraneous information to be read at the end of files, 
giving a false End Of File (EOF) indication. Some programs 
will not function properly under these conditions. 

NEW diskettes usel under OLD TRSDOS, may not access all 
data and/or NEW programs may not run correctly. 

If you determine that you need to use the UPGRADE utility 
see page titled "TIPS ON USING THE MODEL I TRSDOS 2.3B 
UPGRADE UTILITY" contained in this addendum. 

NOTE: When changing from one TRSDOS to the other you must 

use the RESET switch each time the diskette in drive u 
is changed. 

RADIO SHACK APPLICATION PROGRAMS WHICH WERE DELIVERED ON AN 
OLD TRSDOS DISKETTE SHOULD NOT BE UPGRADED. 

0LD : TRSDOS 2.1, 2.2, and 2.3. 

N EW- TRSDOS 2.3B. 

fil 4: A collection of information stored as one 

named unit in the directory, 
program: A file which causes the computer to 

perform a function. 
data . information contained in a file which is 

used by a program, 
system diskette: A diskette containing TRSDOS. When this 

diskette is placed in drive and the 

RESET switch is pressed, TRSDOS will begin 

to run. 
data diskette: A diskette which does not contain TRSDOS. 

If this diskette is placed in drive and 

the RESET switch is pressed, the screen 

will clear and "NO SYSTEM" will be 

displayed. 
UPGRADE: A program contained on the TRSDOS 2.iB 

diskette. 
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******************** 

* * 

* MODEL III USERS * 

* IMPORTANT NOTICE PLEASE READ FIRST * 

* * 
******************** 

XFERSYS UTILITY ON TRSDOS 1.3 



The MODEL III diskette in this package contains a NEW 
version of TRSDOS which is not compatible with OLD versions 
of TRSDOS, see below for further details. 

OLD TRSDOS diskettes to be used under the NEW TRSDOS MUST be 
XFERSYSed before use. Once XFERSYSed, an OLD TRSDOS diskette 
becomes a NEW TRSDOS diskette and should not be used with 
OLD TRSDOS again. If you started with an OLD system or data 
disk, the XFERSYSed diskette will be a NEW system or data 
diskette respectively. 

OLD diskettes used under NEW TRSDOS without XFERSYSing, may 
cause extraneous information to be read at the end of files, 
giving a false End Of File (EOF) indication. Some programs 
will not function properly under these conditions. 

NEW diskettes used under OLD TRSDOS, may not access all 
data and/or NEW programs may not run correctly. 

If you need to use the XFERSYS utility see the TRSDOS 
section of your TRS-80 MODEL III Disk System Owner's Manual. 

NOTE: When changing from one TRSDOS to the other you MUST 

use the RESET switch each time the diskette in drive 
is changed. You may also XFERSYS onto a NEW data disk. 
If this is done, all system files of the system disk 
will be moved onto the data disk. 

RADIO SHACK APPLICATION PROGRAMS WHICH WERE DELIVERED ON AN 
OLD TRSDOS DISKETTE SHOULD NOT BE XFERSYSD. 

OLD: TRSDOS 1.1 and 1.2. 

NEW: TRSDOS 1.3. 

file: a collection of information stored as one 

named unit in the directory, 
program: A file which causes the computer to 

perform a function, 
data: Information contained in a file which is 

used by a program, 
system diskette: A diskette containing TRSDOS. When this 

diskette is placed in drive and the 

RESET switch is pressed, TRSDOS will begin 

to run. 
data diskette: A diskette which does not contain TRSDOS. 

If this diskette is placed in drive and 

the RESET switch is pressed, the screen 

will clear and "Not a SYSTEM Disk" will be 

displayed. 
XFERSYS: A program contained on the TRSDOS 1.3 

diskette. 
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TO: Owners of the Communications Package, Series I Editor 
Assembler, BASIC Compiler, BASIC Runtime, COBOL 
Compiler, and COBOL Runtime. 

FROM: Radio Shack Computer Merchandising 

DATE: August 18, 1981 

RE: TRSDOS 2.3B for the MODEL I 



Differences between TRSDOS 2.3B and TRSDOS 2.3 are: 

1. Variable length records have been corrected, in all 
aspects . 

2. In most cases, your computer will not "hang up" when you 
attempt use of a device which is not connected and 
powered up. 

3. The DEVICE command has been deleted. 

4. The following commands have been added: 

CLS 

This command clears the display and puts it in the 64- 

character mode. 

PATCH 'filespec' (ADD=aaaa,FIND=bb,CHG=cc ) 

This command lets you make a change to a program file. 

You need to specify: 

'aaaa' - a four byte hexadecimal address specifying 

the memory location of the data you want to 

change 
'bb' - the contents of the byte you want to find 

and change. You can specify the contents of 

more than one byte, 
'cc' - the new contents to replace 'bb' 

For example: 

PATCH DUMMY/CMD ( ADD=4567 ,FIND=CD3300 ,CHG=CD3B00 ) 
changes CD3300, which resides at memory location 4567 
(HEX) in the file named DUMMY/CMD, to CD3B00. 

If this command gives you a STRING NOT FOUND error 
message, this means that either 'bb' does not exist, or 
else 'bb' crosses a sector boundary. If 'bb' crosses a 
sector boundary, you must patch your file one byte at 
a time. For example: 

PATCH DUMMY/CMD ( ADD=4568 ,FIND=33 ,CHG=3B ) 
replaces the contents of the second byte in the above 
example. 



TAPE (S=source device, D=destination device) 

This command transfers Z-80 machine-language programs 

from one device to the other. You must specify the 
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■source device' and 'destination device' using these 
abbreviations: 

T - Tape 

D - Disk 

R - RAM (Memory) 
The only valid entries of this command are: 

TAPE (S=T,D=D) TAPE (S=T,D=R) TAPE (S=D,D=T) 
For example 

TAPE (S=D,D=T) 
starts a disk-to-tape transfer. TRSDOS will prompt you 
for the diskette file specification and ask you to press 
<ENTER> when the cassette recorder is ready for 
recording. 

CAUTION: When doing a tape-to-RAM transfer, do not use a 
loading address below 6000 (Hex), since this would write 
over TRSDOS or the tape command. 

5. These commands have been slightly changed: 

BACKUP now checks to see if the diskette which will be 
your backup copy is already formatted. If it is, BACKUP 
will ask you if you want to REFORMAT it. 

CLOCK will no longer increment the date when the time 
goes beyond 23:59:59. 

COPY now works with only one-drive. For example: 

COPY FILE1:0 to FILE3:0 
duplicates the contents of FILEl to a file named FILE3 
on the same diskette. 

KILL will now allow you to kill a protected file without 
knowing its UPDATE or protection level. To kill this 
kind of file, type an exclamation mark (!) at the end of 
the KILL command. For example: 

KILL EXAMPLE ! 
kills the UPDATEd or protected file named EXAMPLE. 
(Note the mandatory space between the file name and the 
exclamation mark.) 

LIST only lists the printable ASCII characters. 

PROT no longer allows you to use the UNLOCK parameter. 

DIR is now in this format: 

Disk Name: TRSDOS 
Filename Attrb 
JOBFILE/BLD N*X0 
TERMINAL/Vl N*X0 
LOADX/CMD N*X0 
*** 171 Free Granules *** 



1. Disk name is the name which was assigned to the disk 
when it was formatted. 

2. File Name is the name and extension which was 
assigned to the file when it was created. The password (if 

any) is not shown. 

3. Attributes is a four-character field: 
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Drive: 


04/15/81 




LRL #Rec 


#Grn #Ext 


EOF 


256 1 


1 1 


1 


256 5 


2 1 


126 


256 5 


2 1 






a. the first character is either I (invisible file) 

or N (Non-invisable file) 

b. the second character is S (System file) or * 

(User file) 

c. the third character is the password protection 

status of the file: 

X - the file is unprotected (no password) 
A - the file has an access word but no 

update word 
U - the file has an update word but no 

access word 
B - the file has both update and access 

word 

d. the fourth character specifies the level of 

access assigned to the access word: 

- total access 

1 - kill the file and everything listed 

below 

2 - rename the file and everything listed 

below 

3 - this designation is not used 

4 - write and everything listed below 

5 - read and everything listed below 

6 - execute only 

7 - no access 

4. Number of Free Granules - how many free granules 
remain on the diskette. 

5. Logical Record Length - the record length which was 
assigned to the file when it was created. 

6. Number of Records - how many logical records have 
been written. 

7. Number of Granules - how many granules have been used 
in that particular file. 

8. Number of Extents - how many segments (contiguous 
blocks of up to 32 granules) of disk space are allocated to 

the file. 

9. End of File (EOF) - shows the last byte number of the 

file. 
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TIPS ON USING THE MODEL I TRSDOS 2 . 3B UPGRADE UTILITY 

If you determine that you need to use the UPGRADE 
utility then proceed as indicated below. 

Insert your TRSDOS 2.3B system diskette in drive 0, 
press the RESET switch, and when TRSDOS READY is displayed 
type UPGRADE <ENTER>. Your screen will display: 

TRSDOS DIRECTORY UPGRADE UTILITY 

FOR CONVERSION OF TRSDOS 2.1, 2.2, OR 2.3 TO 
TRSDOS 2.3B DIRECTORY FORMAT. 

ONCE UPGRADE HAS BEEN EXECUTED, YOUR DISKETTE SHOULD 
NOT BE USED UNDER TRSDOS 2.1, 2.2, OR 2.3 AGAIN. 

DO YOU WISH TO CONTINUE (Y/N/Q)? 

This means that the directory format on your TRSDOS 
2 1 2 2, or 2.3 diskette will be converted to the TRSDOS 
2. 3B format. Once you type Y to continue, the screen will 
display: 

INSERT DISKETTE TO BE UPGRADED IN DRIVE 1. 
PRESS <ENTER> WHEN READY. 

insert the diskette you want to convert in drive 1 and 
press <ENTER>. After successful conversion, the screen will 
display a CONVERSION COMPLETE message. If you are attempting 
to convert a diskette which has already been converted, the 
screen will display a DISKETTE IS ALREADY A 2.3B error 
message. 



TECHNICAL NOTE 

For all files indicated in the directory that have an End Of 
File (EOF) not equal to. zero, UPGRADE will change the number 
of records to be one less than the previous record count 
Note that in FILEl, the number of records indicated has been 
changed from 10 to 9 after UPGRADE. For FILE2 the records 
indicated remain the same since EOF=0. 

BEFORE UPGRADE AFTER UPGRADE 

TRSDOS 2.1, 2.2, 2.3 TRS °°?_?:! B 

FILEl EOF=9 10 RECORDS 9 RECORDS 

FILE2 EOF=0 10 RECORDS 10 RECORDS 

If the TRSDOS 2.1, 2.2, or 2.3 diskette is a system 
diskette, part of the conversion process will prohibit 
accidental usage under the TRSDOS 2.1, 2.2, or 2.3 by 
killing the files listed below: 

SYS0/SYS SYS1/SYS SYS2/SYS 

SYS3/SYS SYS4/SYS SYS5/SYS 

SYS6/SYS FORMAT/CMD BACKUP/CMD 

BASICR/CMD BASIC/CMD 
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SPECIAL NOTE FOR 26-2013 MODEL I SERIES I EDITOR/ASSEMBLER 



The MODEL I diskette that contains your EDTASM package 
includes TRSDOS 2.3B which is not compatible with TRSDOS 
2.1, 2.2, or 2.3. Therefore, a machine language object file 
created with this package file CAN NOT simply be COPYied 
from TRSDOS 2.3B onto a TRSDOS 2.1, 2.2, or 2.3 diskette. 

See below for instructions on how to move an object file 
from TRSDOS 2 . 3B onto a TRSDOS 2.1, 2.2, or 2.3 diskette. 



TIPS ON GETTING OBJECT FILES FROM TRSDOS 2 . 3B 
ONTO TRSDOS 2.1, 2.2, OR 2.3 DISKETTES 

If for example, you desire to use an assembly language 
function written with TRSDOS 2.3B EDTASM as a "user's 
external subroutine" under the TRSDOS 2.3 BASIC interpreter, 
follow the given steps carefully: 

1) Insert your TRSDOS 2.3B system diskette that contains the 
EDTASM package in drive and press the RESET switch. 

2) Use the EDTASM package to enter and assemble a routine. 
We have used the SHIFT routine given in Section 7 of your 
TRSDOS & DISK BASIC Reference Manual as an example. 

a) Save the source program using the command: 

W SHIFT/SRC :0 

b) Then assemble the source file with the command: 

A SHIFT/CMD:0 

c) Quit EDTASM with the command: 

Q 

d) At TRSDOS READY enter the command: 

LOAD SHIFT/CMD:0 

3) Remove your TRSDOS 2.3B diskette. 

4) Insert your TRSDOS 2.3 diskette in drive and press the 
RESET switch. 

5) At TRSDOS READY enter the command: 

DUMP SHIFT/CMD:0 ( START=X' 7D00 • , END=X ' 7D09 ' ,TRA=X ' 7D00 ' ) 

Reference Section 4 of your manual and note that X' 7000' 
is the lowest address that may be used as the origin of 
your programs . 

6) The file on this diskette, named SHIFT/CMD, may now be 
used as needed under TRSDOS 2.1, 2.2, or 2.3 with the 
BASIC interpreter as a user's external subroutine. 
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*************** 

* 



* 

* IMPORTANT NOTICE 

* FOR 

* COMMUNICATIONS PACKAGE 

* DISK SYSTEM USERS 
* 
************** 



* 
* 
* 
* 
* 
* 



The 26-1149 Communications Package is delivered on MODEL I 
TRSDOS 2.3B and Model III TRSDOS 1.3. Communication can 
occur MODEL I to I, III to III, or I to III, but only under 
MODEL I TRSDOS 2 . 3B and MODEL III TRSDOS 1.3. 

Data on MODEL I TRSDOS 2.1, 2.2, or 2.3 must be UPGRADEd to 
2.3B beofre it can be transmitted. Backup the diskette 
before UPGRADEING. 

Data on MODEL III TRSDOS 1.1 and 1.2 must be XFERSYSed to 
1.3 before it can be transmitted. Backup the diskette 
before XFERSYSing. 

NOTE: Radio Shack Application programs on TRSDOS 1.1, 1.2, 
2.1, 2.2, or 2.3 were tested on the particular 
version of TRSDOS they were purchased on. 

No quarantee is implied that these programs will 
work correctly after being UPDATEd to MODEL I TRSDOS 
2.3B or XFERSYSed to MODEL III TRSDOS 1.3. 

IMPORTANT NOTE FOR MODEL I USERS: You cannot run BASIC 
programs because TRSDOS 2.3 does not contain DISK BASIC. 

On page 20 of the Communications Package manual, we suggest 
you use SAVE, a DISK BASIC command, to save a transferred 
BASIC tape program on diskette. You will not be able to use 
the SAVE command with the TRSDOS 2.3B diskette, since it 
does not contain DISK BASIC. 
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Important Note for 

Model I III 
RSCOBOL Users 

The object modules (described on page 32 of the Use section) are password 
protected and cannot be copied (with COPY) from your system diskette. To 
transfer these modules to another diskette, use BACKUP. 

When you assign a program-name to a COBOL file (refer to page 29 of the 
RSCOBOL section of this manual), you must use standard TRSDOS syntax 
for the program-name. See the File Specification section of your Model III 
owner's manual for specific details. 

Thank-You! 

Radio /hack 

j£ A Division of Tandy Corporation 

8759117-581 



TRS-80 Model I/III 
COBOL USER'S GUIDE 

(RS/COBOL 1. 3) 
December, 1980 



PREFACE 

This document contains the information required to compile* run 
and debug COBOL language programs on the Radio Shack TRS-BO Model 
I/I 1 1 Microcomputer under the TRSDOS Disk Operating System. 

It assumes the reader is familiar with the COBOL Language, the 
general operation of the TRS-80 Model I or Model III 
Microcomputer, and the TRSDOS Operating System. The reader is 
specifically referred to the following publications: 

TRS-SO Model I/I 1 1 COBOL Language Manual 

TRS-80 Model I Operation Manual 

TRS-80 Model I Disk Operating System Reference Manual 

TRS-80 Model III Disk Operating System Reference Manual 

This guide is organized such that each chapter fully describes a 
particular operational procedure. While the experienced user need 
only refer to the appropriate chapter, it is recommended that the 
first-time user read the complete guide prior to operation of the 
COBOL system. 



PROPRIETARY RIGHTS NOTICE 

TRS-80 Model I/I 1 1 COBOL <RSCOBOL) is a proprietary product of: 

Ryan-McFarland Corporation 
Software Products Group 
licensed to: 

Tandy Corporation 
One Tandy Center 
Fort Worth, Texas 76102 
<817> 390-3583 

The software described in this document is furnished to the user 
under a license for use on a single computer system and may be 
copied (with inclusion of the copyright notice) only in accordance 
with the terms of such license. 

Copyright 1980 by Ryan-McFarland Corporation. All rights 
reserved. No part of this publication may be reproduced, stored 
in a retrieval system, or transmitted, in any form or by any 
means, electronic, mechanical, photocopying, recording, or 
otherwise, without the prior written permission of Tandy 
Corporation. 
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CHAPTER 1 
THE COBOL COMPILER 

1.1 Compiler Overview 

The COBOL Compiler operates on a 4SK byte TRS-80 Model I or Model 
III Microcomputer with at least two disk drives under the 
appropriate TRSDOS Operating System. (Model I - version 2. 3, 
Model III - version 1. 1). 

Once executed, the Compiler makes a single pass on the source 

program, generating object and listing files concurrently. Upon 

completion it reports compilation results on the display and 
returns control to TRSDOS. 

Compilation always proceeds to the end of the program, regardless 
of the number of source errors found. 

A listing of the program is generated showing the original COBOL 
source statements, error information, data allocation, Interactive 
Debug information and, optionally, a Cross Reference of all 
program labels and data items. This listing can be directed to 
the Console, the Printer and/or a disk file. 

The generated object file is in a form ready for immediate 
execution by the COBOL Runtime. Object code is produced such that 
an attempt to execute an erroneous statement will terminate 
execution with an appropriate error message. 

1. 2 Device Assignments 

All communication between the Compiler and the User is through the 
system console. 

During operation, the Compiler will require one or more of the 
following devices: 

Display & Keyboard compiler command input & compiler messages 

Disk source input file 

Disk listing file (optional) 

Disk object file (optional) 

Disk COPY input file (optional) 

Display listing display (optional) 

Printer listing print (optional) 
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1.3 Executing the Compiler 

TR^nnS^ 16 a C0B0L 5 ° UrCe P r °Sra m , issue the following command to 
RSCOBOL filespec (options) comment 



TRSDOS: 



where: 
f i lespec 



options 



is the file specification of the COBOL source file to be 
compiled; of the form: 

f ilename/ext. password: d 
'filename' is required. 

'/ext' is an optional name-extension. When omitted, the 
default VCBL' is used. 

'.password' is an optional password. Note: If the file 
was created with a nonblank password, '.password' 
becomes a required field. 

':d' is an optional drive specification. When omitted, 
the system does an automatic search, starting with drive 



allows the user to specify compiler and/or file options 
Each option must be specified as shown below, separated 
by spaces. The left and right parenthesis are required 
if any comments are present. 

When no options are specified, the compiler will 
automatically generate an object file but no listing 
output. 3 
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1.3.1 Compiler Source Input 

The Compiler expects the source input to be a sequential file, 
containing logical records of ASCII text. These logical records 
can be either of two forms; 'byte-stream' or 'fixed': 

'byte-stream' records consist of a string of ASCII 
characters, terminated by a carriage-return character. This 
format is typically stored on the disk as one byte records 
<LRL=1), and is the format created by the standard TRSDOS 
editor (s). 

'fixed' records consist of 80 ASCII characters each <LRL=80), 
and do not contain carriage-return or other special 
characters. 



1.3.2 Compiler Options 



D 



'D' instructs the compiler to compile all COBOL "Debug" 
source lines, identified by a "D" in column 7. This 
allows the user selective compilation of COBOL source 
statements. 

This option has no relationship to the COBOL Runtime 
Interactive Debug facility and need not be specified to 
allow such debugging. 

The default is to treat such lines as comments. 



'E' instructs the compiler to generate an 'Error Only' 
listing instead of a full listing. This option is 
effective only when a listing has been specified (L, P 
and/or T options). 

The listing generated will contain the page heading 

information, all source lines in error with their 

appropriate undermarks and messages, plus all summary 
information. 

The default is not to generate an error listing. 
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L L=d 



L indicates that the compiler listing is to be written 
to a disk file with the name of the source file and * 
filename-extension of VLST'. The first available disk 
is used. 

Specifying a drive number <L=d) indicates that the 
listing file is to be written to disk 'd'. 

, L ?I,. fi1 !* may be displayed using the standard TRSDOS 
LIST and PRINT utilities. 

The default is not to generate a listing file. 
0=d 0=N 

'0' indictes that the Compiler object output is to be 
written to a disk file with the name of the source file 
and a filename-extension of '/COB'. The first available 
disk is used. 



e 



Specifying a drive number <0=d) indicates that th. 
object file is to be written to disk 'd'. When omitted 
the first available disk is used. 

'CNN' indicates that no object file is to be generated. 

The default is to generate an object file on the first 
available disk. 



'P; indicates that the listing is to be printed on the 
printer. 

The default is not to print the listing. 



'T' indicates the listing is to be displayed on the 
system display. 

The default is not to display the listing. 



X indicates a cross-reference of COBOL Procedure and 
Data Division names is to be produced. This option is 
effective only when a listing has been specified <L, P 
or T options). 

The default is not to generate a cross-reference. 
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1.3.3 Compiler Messages 

.» .hich report th. "^^/^U^ £ tll'HUtl 

complete the compilation process are report 
display as they are detected. 



TRS-80 Model I/III COBOL Compiler < RM ^°^ m V ^^_^ 
Copyright 1980 by Tandy Corp. Licensed from Ryan Mc 



r) 

_... IcFarland Corp. 

Copyi 



indict., that the compiler has been loaded and has begun^o 
compile the specified program /*T V r ^ mDi leT 
version <v> and revision <r) level of the compiler. 



COMPILATION COMPLETE: eeee ERRORS, wwww WARNINGS 

Indicates that the compilation has been completed. Th 
^luofof 'eeee' and 'wwww' indicate the number of errors an 
Earnings! Respectively, identified in the source program 



The 
d 

gs, respectively, »"""«« *•■ — = — 

This message is repeated on the listing. 

PARAMETER ERROR AT: vvvvvvvv 

Indicates that an unrecoverable error was detected on the 

command to execute the compiler. 'vvvvvvvv' will identify 

the offending field. 

The user should reenter the command with the necessary 

corrections. 

COMPILATION CANCELLED 

Compiler cancelled by user with BREAK key. 
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COMPILER ERROR, NO: nnnn 

which caused the error id.ntifi.. the condition 

0001 Pointer overflow 

Joiners g::j::i .u* 5 exceeded ^^^i C o mP ii er 

n™£i Sf?<"ent the program and recompile. If this 
problem still exists, separate programs into main 
program with multiple subroutines. 

0002 Roll memory overflow 

llL2r^ Pr ° 9ram haS exceeded available work space 
Segment the program and recompile. 

0010 Unable to locate or load a compiler overlay 

1*1 rl t hB RSCBLnVT * Program overlays as' described in 
the chapter on 'Installation Procedures. ' criDea *" 

0020 Invalid TRSDOS 

TrIoo^/* 5 attem P* ed ""der *" incorrect version of 
iKbDOS Order correct version of TRSDOS. 

Required TRSDOS versions are: 

Model I - 2. 3 
Model III - l. l 

0030 Invalid Source Record 

record mPil vIri£r enco " nte ^ d ■" invalid source input 
either: * reCOrds are ASCI1 te **' formatted as 

carr^gf^turn 8 ? 9 *^ ""^ <LRL=U *"•*"•*■' ""h a 
carriage return" 8 ° Character ™ C0T * ds <^=80) without 



MODEL I/IH COBOL User's Guide - 6 - 



(RSCOBOL 1.3) 



1. 3. 4 Examples 

RSCOBOL PAYROLL <P X) 

*.k= source orogram PAYROLL/CBL, 

Sisk and a listing, with cross-reference, on the printer. 
RSCOBOL MORTGAGE/SRC: 1 <L=2 0=N> 

disk in drive 2, and no object file. 
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1.4 The Program Listing 

The compiler outputs 'source' ..n 

listings if a listing device or fi?»' 0n ' • *"" '*>»™>"W' 

?j.X-'k. -r.. m . :::Jj; ■»"- " ---'-"oss^r.^ 

a"-%e%T%% r C i :\ i - 9e :^rrn%er%p s :?s:r^ig n ^ t Lr b "- ••-*•"» 

an, naL^^'e^h'ioe'o.ffi^r 1 ^: 'Senti^*' 5 ' ^ ^" ' *»'. 
show the record structurl' It! lden * lfieT * names are indented to 

number of subscript! -it required* "^ ° f an "•"«"" *• the 

IJphaL°t S ^r^r e der e , ^"l^ViT % ^ "•»"»" -mes in 
source, and d..tin ti n re en ThT " ° f I."" d « 1 "-"°"' 

by slashes if the reference i 5a 5*r }*"• " u » b " is surrounded 
reference i s a Do^ihT- V, • 1 decla ration; asteriks if the 

paragraphs and* ..?** S"" " 'incTSSi J 1Cati ° n - R ' fe ™ *° all 



nCmbers ^ex^eciLT III ^ll^l ^"r - " ^ 



d, 



1. 4. 1 Listing Diagnostics 



Source statements are checkoH *„r. * 

they are scanned. Errors mau ™L *? ** a " d 5emantic "rors as 
this case, text is iZolt* f,L ? interruption in scanning. In 
resume message is pr n£ed rV'I * reco ™JV Point is found «nd a 
the amount of n d text lili P ? lnt **™ chosen to minimize 
messages. In an case thf r W1 * hou * Producing irrelevant error 
and error messes ^iedwheTt^lT 5 ** f? Ult are »"-~rk.d 
error message Includes either E's 0^* ^V* P rinted - Th. 
warning. For example- ° r W S lnd ^ating e 



»rror or 



004030 02 STOCK PIC 9<16>PPP COMPUTATIONAL. 
***** DPICTURE *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
Indicates a semantic number size error but 
005040 02 PART PIC X(4BX(5) SYNC. 

***** iJsCAN^ESUMP* E ^* E * E * E * E ^*E*E*E*E*E*E*E*E*E*E*E 
*** 2) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*S 
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indicates a syntax error at the first undermark and a recover at 
the second undermark. 

The number preceding the error message is the undermark number, 
counting from left to right. More than one message may refer to 
the same undermark. 

Global errors such as undefined paragraph names and ill'jjj 
control transfers are listed with the program summary at the end 
of the source listing. 



1. 4. 2 Diagnostic Messages 

ACCESS CLASH ,. , ,,,. 

Nonsequential access given for sequential nie. 

BLANK WHEN^ZERO ^^ ^^ ^^ ^.^ ^ nonnumeric or group 
item. 



CLASS 



The referenced identifier is not valid in a class 
condition. 



COPY statement failed because of permanent error 
associated with the undermarked file-name. 

CORRESPONDING . .. h th _ 

The CORRESPONDING phrase cannot be used with tne 

referenced identifier. 

DATA OVERFLOW i-4.« M i.i u laraer 

The data area (working-storage and literals) is larger 

than 65535 bytes in length. 

DATA TYPE ^^^ ^^ nQt -nou data type of the referenced 
identifier. 

Random characteristics given to nonrandom device. 

DEVICE TYPE s _ .... . „ + „„_ 

OPEN or CLOSE mode inconsistent with device type. 

DOUBLE DECLARATION .. .,,.„ ^tribute 

Multiple declaration of a file or identifier attribute. 

DOUBLE DEFINITION 

Multiple definition of an identifier. 
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DUPLICATE 

"un r ct?L°or%U. MUltiPlB USE '""'"•» "«»««- *« s« 
FILE DECL ERROR 

The referenced file-name i? csp. crT»j -. j l. 

or niicein. £-1 j '. rae 1S atLtCTed and has an invalid 

or missing file description <FD). invalid 

FILE NAME ERROR 

FILE NAME REQUIRED 

File name not given as referenced in I/O verb. 
FILE RECORD KEY ERROR 

FILE RECORD SIZE ERROR 

records relatlVe "8-"i«-tion file with variable Ungth 

FILE RELATIVE KEY ERROR 

The referenced file-name has a RELATIVE KFV ,,h^K ■ 
mcorrectlu emaii*iow • ^ rscuwiivt KEY which is 

FILE STATUS ERROR 

WORKING-STORAGE SECTION, is not f^ J" tht 
alphanumeric item. n<Dt a two-character 

FILE TYPE 

Access or organization of file conflir** > ..^^ 
undermarked statement. conflicts with 

FILLER LEVEL 

A non-elementary FILLER item is declared. 
GROUP CLASH 

GROUP VALUE CLASH 

VAL^^IS^clause H*™^*^™** to a group with the 
JUSTIFIED, or SsagI ? e *">bed with the SYNCHRONIZED, 
clause <0thBr than USAGE IS DISPLAY) ' 
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IDENTIFIER 



Identifier reference is incorrectly constructed or the 
identifier has an invalid or double definition. 



ILLEGAL ALTER ^^ statement re ferences an unalterable paragraph 
or violates the rules of segmentation. 

ILLEGAL PERFORM , t . tMI „ t reference undefined or -correctlg 
qualified parajraph or the reference violates the rule, 
of segmentation. 



INVALID ID 



The referenced identifier was not successfully defined. 



INVALID PARAGRAPH 

Context does not allow section name. 



JUSTIFY 



JUSTIFY clause given in conflict with other attributes. 



KEY REQUIRED ,„j„ m S rre«* relative 

Relative key not declared for random access relative 

file or record key not declared for indexed file. 



LABEL 



Presence or absence of label record conflicts with 
device standards. 



LEVEL 



LINKAGE 



Level-number given is invalid either intrinsically or 
because of position within a group. 

An identifier in the USING clause of the PROCEDURE title 
is not a linkage item or a statement references a 
linkage item not subordinate to an identifier in the 
USING clause of the PROCEDURE title. 



LITERAL VALUE . nni . av¥ 

Literal value given is incorrect in context. 



MOVE 



Operands of MOVE verb specify an invalid move. 



MUST BE INTEGER 

Context requires decimal integer. 

MUST BE PROCEDURE reference or 

Context requires procedure name either as ™ fe ; en " °^ 
definition, or the reference must be a nondec larative 
procedure-name. 
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MUST BE SECTION 

Context requires procedure-name to be section. 
NESTING 

Illegal nesting of condition that is not an IF 
cond 1 tion. 

NOT IN REDEFINE 

VALUE IS clause given in REDEFINES item. 

OCCURS 

OCCURS clause given at invalid level or after three have 
been given for the same item. 

OCCURS DEPENDING ERROR 

The referenced object of a DEPENDING phrase has not been 
defined correctly. 

OCCURS-VALUE CLASH 

VALUE IS and OCCURS in effect for the same item. 

PICTURE 

Invalid PICTURE syntax. 

PICTURE-BWZ CLASH 

Zero suppression and BLANK WHEN ZERO cannot be in effect 
for the same item. 

PICTURE-USAGE CLASH 

USAGE clause or implied usage conflicts with usage 
implied by picture. 

PROCEDURE INDEPENDENCE 

PERFORM given for procedures in independent segments not 
in the current segment. 

PROGRAM OVERFLOW 

The instruction area is larger than 32767 bytes in 
length. 

RECORD KEY 

Record key declared for other than an indexed 
organization file or a START statement KEY phrase 
references a data item not aligned on the declared key's 
leftmost byte. 

RECORD REQUIRED 

Context requires record name. 

REDEFINES 

REDEFINES given within an OCCURS or not redefining the 
last allocated item. 
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REDEFINES ERROR . ^ ... . M 

The referenced data-name redefines an item which does 
not have the same number of character positions and is 
not level 01. 

REFERENCE INVALID 

Reference given is not valid in context. 

RELATION 

Operands of relation test are incompatible. 

RELATIVE KEY ,. lHul 

Relative key declared for other than a relative 
organization file or a START statement KEY pharase 
references a data item other than the declared key. 

RESERVED WORD CONFLICT 

A COBOL reserved word or symbol is given where a user 
word is required. In the summary this is only a warning 
about an ANSI COBOL reserved word that is not an 
implemented COBOL reserved word. 

SCAN RESUME 

Warning only. Scanning was terminated at previous error 
message and resumes at undermarked character. 

SECTION CLASH . tMUA ._ 

A VALUE IS clause appears in the FILE or LINKAfefc 

section. 

SEGMENT 

Warning only. Segment number given in an independent 
segment is not the same as the current segment or the 
number of a new independent segment. The current 
segment number is used. 

SEPARATOR 

Warning only. Redundant punctuation or a separator is 

not followed by the required space. 

SIGN . . . 

SIGN clause given in conflict with usage and picture. 

SIZE 

Warning only. Size of data referenced not correct for 

context. 

SI ZE ERROR 

Declared size of record conflicts with present 

reference. 

SUBSCR IPT 

Incorrect number of subscripts or indices for a 

reference. 
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SYNC 

Synchronized clause given for a group item 
SYNTAX 

Incorrect character or reserved word given for context. 
UNDEFINED 

File referenced in FD entry was not defined. 

UNDEFINED DECLARATIVE PROCEDURE 

A declarative statement references a procedure not 
defined within the DECLARATIVES. 

UNDEFINED PROCEDURE 

A GO TO statement references an undefined or incorrectly 
qualified paragraph. 

USE REQUIRED 

A DECLARATIVES section must begin with a USE statement. 

USING COUNT 

Warning only. The item count in the USING list of a 
CALL statement is different from that of the first 
reference to the same program name. 



VALUE ERROR 



VALUE 



Value given in VALUE IS required truncation of nonzero 
digits. 



VALUE IS clause given in conflict with other declared 
attributes. 



VARIABLE RECORD 

Warning only. The INTO phrase is not allowed with 
variable size records. 
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CHAPTER 2 
THE COBOL RUNTIME 



2. 1 Runtime Overview 



„„ a 4SK bute TRS-80 Model I or Model 
The COBOL runtime operates on a 48K byte ik* ^^ ^ 

III Microcomputer with at least two «JJ - version 2. 3, 
appropriate TRSDOS Operating System. <Modei 
Model III - version 1. 1). 

, a 4-ho -runtime loads and executes the compiled object 
Once invoked, the runtime ioaas an rB auired segments, 

program, automatically loading any req ^^ 

Concurrently, it allocates ^^J "I* a ^ u/ol completion 
COBOL and Assembly Language .^Yllltrol is returned to the 
appropriate messages are displayed and control 

operating system. 



2. 2 Device Assignments 

All complication between Runtime and the U,er is through the 

keyboard and display. 

■e-ko Runtime will require one or more of the 
During operation the Runtime win *h« 

•Following devices: 

aboard . Dieplag runtime '—ne'runt^^.ager" 9 

Kegboard 8, Display ACCEPT and DISPLAY, and Interactive Debug 

display. 

Printer PRINT output, if required. 

NOTE- For PRINT output, the device name 
"PRINTER" must be specified m the 
SELECT statement; i. e, 

SELECT filename, ASSIGN to PRINT, "PRINTER". 



. n ■ , is - (RSCOBOL 1. 3) 

MODEL I/IH COBOL User's Guide - 15 



2.3 Executing the Compiled P 



rogram 

lLli:i"tl TR SD 08 mPUe,i CM0L ° bjeCt ■"•••'•- *»«• the foUoaing 
RUNCOBOL filespec (option,) cogent 



where: 
f i lespec 



options 



f ilename/ext. password: d 
'filename' is required. 

^J«it 1 '/SSB. o ;i 1 ;™ d I . n,, ~- ,t '" 1 ""- whB " «"t.d th e 

becomes a "qoiredfield »"=»°rd, 'password- 



The l.ft'e ,.„' parenth ™" »■>•'••*•■' »<t space,. 

cogent, are present " aren " ,e515 "• required if anu 



«it«h.. r .:t p ;: , ;r" u .?;,* ,, :y* j;*:::^^?. 1 """- uith ■» 

=»*••« aii or available memory. 
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2. 3. 1 Runtime Options 



D 



S==nn. . n 



T=hhhh 



'D' invokes the RSCOBOL Interactive Debug package. See 
RSCOBOL Interactive Debug discussion, below, for 
operating instructions. 

The default is not to invoke Interactive Debug. 



'S' sets (or resets) the value of SWITCHES in the COBOL 
program. 

Each 'n' is a switch value, for off, 1 for on, 
numbered 1 to 8, left to right. Trailing zeroes need 
not be specified. 

The default is to set all switches off <0). 



'T' sets the top of available memory to a value 
different from the highest available address. This is 
used to protect assembly language user subroutines, all 
of which must be created to load above the hexadecimal 
address 'hhhh'. 

The default is to use all available memory. 



2. 3. 2 Runtime Messages 

Messages which report the runtime's status, or its ability to 
execute the COBOL program, are reported on the system display as 
they are detected. 

TRS-80 Model I/HI COBOL Runtime (RM/COBOL ver v. r ) 

Copyright 1980 by Tandy Corp. Licensed from Ryan-McFar land Corp. 

Indicates that the runtime has been loaded and has begun to 
execute the specified program. 'ver v. r ' identifies the 
version (v) and revision (r) level of the runtime. 
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COBOL STOP RUN AT xxyyyy IN nnnnnn 

This is the normal termination message of a program. 

iUXXrwhiSr*^!" thB T erlay <XX> and •ft.m.nt address 
tyyyy) where the program terminated. 'nnnnnn' are the first 
six characters of the PROGRAM-ID 



If Debug was invoked on the command line, an 'S' Debua 
command may be used to cause Debug to exit to the operating 



sy 



S2S2V ST ° P literal AT xxyyyy IN nnnnnn 
CONTINUE <Y/N>? 



This message indicate, that a STOP 'literal' statement has 
£lII.«I«J 0im i!! r * d - ' XXyyyy ' ^e^ifies the overlay (n) and 
*n«n!n " tr*l- <Wyyy> Where the Program terminated, 
nnnnnn are the first six characters of the PROGRAM-ID. 

Responding with a 'Y' will be the equivalent of a "pause- 
statement, returning control to the next COBOL statement. 

An 'N' response will cause all program files to be closed and 
control will be returned to the operating syst< 



;em. 



2. 3. 3 Examples 



RUNCOBOL PAYROLL (S=10H) 



PAYRn. e . S '/™ adS '^ and . f xecutes the compiled COBOL program 
PAYROLL/COB; and sets the value of SWITCHES 1, 3, and 4 'on', 
all others 'off. 

RUNCOBOL MORTGAGE/TST: 2 <D> 

loads, the compiled COBOL program MORTGAGE/TST from drive 2 
along with the Interactive Debug package. Control is passed 
directly to Debug. 

RUNTIME ERROR, NO: nnnn 

an internal error has occurred which prevents continued 

nJIrh ' a Iu e ValUe ° f ' nnnn ' i^ntifies the condition 
which caused the error. 

OOIO Unable to locate or load User Debug 

Install RSCBLDvr as described in the chapter on 
Installation Procedures'. 
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0020 Invalid TRSDOS 

Execution was attempted under an incorrect version of 
TRSDOS Order . correct version of TRSDOS. 

Required TRSDOS versions are: 

Model I - 1. 1 
Model III - 2. 3 

2.4 Runtime Diagnostics 

Diagnostic messages are display if an int.rn.l •J™; """^J, " ^ 
an I/O error occurs that was not, or could not, be processed by an 
appropriate USE procedure. 

If Debug was invoked, Debug will be entered to allow "•» i "; t *»" 
of program data values; otherwise, control will return to the 
operating system. 

COBOL error AT xxyyyy IN nnnnnn 

Indicates an internal error condition has oeeurrjd, « here 
'error' identifies the error condition. 'xxyyyy identifies 
the overlay <xx) and statement address (yyyy) where the 
program terminated. 'nnnnnn' are the first six characters of 
the PROGRAM-ID. 

COBOL filename 10 ERROR » cc AT xxyyyy IN nnnnnn 

Identifies that an abnormal I/O condition, 'cc ' has caused 
the program to be aborted. 'xxyyyy' identifies the overlay 
<xx) and statement address (yyyy) where the program 
terminated. 'nnnnnn' are the first 6 characters of the 
PROGRAM- ID. 

The I/O error 'cc ' has a different meaning depending on 
whether the file's organization is sequential, relative or 
indexed. 

Sequential Files: 

10 The E sequential READ statement was unsuccessfully executed 
as a result of an attempt to read a record when no next 
logical record exists in the file. 
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30 PERMANENT ERROR. 

Ihe resul^f'^ ■*■*•;•"*«" unsuccessfully executed as 
the result of an input-output error, such as data check 
parity error, or transmission error. May ah nd I 

; em r n e «:r?^s; IT 2V n ^^^ ™t\:iv.*i:v. c * m t: 

file; CLOSE rpei ? m t0 ,* Variable len 9th record <VLR> 
i Lil,hi *k' , May alS ° indica te that no more space 
is available on the disk. v*-* 

34 PERMANENT ERROR BOUNDARY VIOLATION 

Ihl resuU°of P f hr a H tementW r Unsuccess *»"« executed as 
the result of a boundary violation for a sequential file. 

90 INVALID OPERATION. 

REWRIT?^ I" b f e " made to execute a READ, WRITE, or 
mode or I SEE™* 1 ' - ! " nflict * with the current open 

Iucc.«l.,ipp!n I T ! Statement was n^ preceded by a 
successful READ statement. 

91 FILE NOT OPENED. 

An attempt has bun iidi to execute a DELETE, READ, 

fite ^h^h * WRITE ' REWRITE or CLOSE statement on a 
file which is not currently open. 

92 FILE NOT CLOSED. 

An attempt has been made to execute an OPEN statement on 
a file which is currently open. 

93 FILE NOT AVAILABLE. 

An attempt has been made to execute an OPEN statement for 
a file closed with LOCK. »•«*"* ror 

94 INVALID OPEN. 

An attempt has been made to execute an OPEN statement for 

inrinl^i \ n0 ext f rnal correspondence or a file having 
inconsistent parameters. y 



95 INVALID DEVICE. 




Program Assignment External Assignment 

RANDOM 



INPUT 

OUTPUT 

PRINT 



Disk 
Disk 
Disk 



Disk, line printer 
INPUT-OUTPUT Disk 
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96 UNDEFINED CURRENT RECORD POINTER STATUS. 

An attempt has been made to execute a READ statement 
after the occurrence of an unsuccessful READ statement 
without an intervening successful CLOSE and OPEN. 

97 INVALID RECORD LENGTH. .„*.*. 

An attempt has been made to execute a REWRITE statement 
when the new record length is different from that of the 
record to be rewritten, or to OPEN a file that was 
defined with a maximum record length different from the 
externally defined maximum record length* or to execute a 
WRITE statement that specifies a record with a length 
smaller than the minimum or larger than the maximum 
record size. 



Relative and Indexed Files: 

10 AT END. 

The Format 1 READ statement was unsuccessfully executed 
as a result of an attempt to read a record when no next 
logical record exists in the file. 

21 SEQUENCE ERROR FOR A SEQUENTIALLY ACCESSED INDEXED FILE. 
The ascending sequence requirement of successive record 
key values has been violated or the record key value has 
been changed by the COBOL program between the successful 
execution of a READ statement and the execution of the 
next REWRITE statement for that file. 

22 DUPLICATE KEY VALUE. 

An attempt has been made to WRITE a record that would 
create a duplicate key on a file that does not allow 
duplicates. 

23 NO RECORD FOUND. *..-•., 
An attempt has been made to access a record* identified 
by a key, and that record does not exist in the file. 

24 BOUNDARY VIOLATION. 

An attempt has been made to WRITE beyond the 
externally-defined boundaries of a file. 

30 PERMANENT ERROR. 

The input-output statement was unsuccessfully executed as 
the result of an input-output error, such as data check, 
parity error, or transmission error. May also indicate 
that no more space is available on the disk. 

90 INVALID OPERATION. 

An attempt has been made to execute a DELETE, READ, 
REWRITE, START, or WRITE statement which conflicts with 
the current open mode of the file or a sequential access 
DELETE or REWRITE statement not preceded by a successful 
read statement. 
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91 FILE NOT OPENED. 

R^^R^bttp 35 e?!L madB t0 exec "^ • CLOSE, DELETE, 

fite' which I L* START ' UNL ° CK ' ° r WRITE statement on a, 
rue wnich is not m an open mode. 

92 FILE NOT CLOSED. 

a"fno e ?hL haS beBn ?? d * t0 execute ^ OPEN statement on 
a Hie that is currently open. 

93 FILE NOT AVAILABLE 

a%t" e c!o 5 er ui trLO^ de *" "" Ut ' *" ° PEN ^^'^ ™ 

94 INVALID OPEN. 

An attempt has been made to execute an OPEN statement for 

incanL*^* n ° eXt f rnal "despondence or a file having 
inconsistent parameters. 

95 INVALID DEVICE. 

An attempt has been made to execute an OPEN statement on 
J„*I i, " . device Ascription conflicts with the 
and Ihf \ asS 1 19ned ^vice. The device must be RANDOM 
and the external correspondence must be a disk. 

96 UNDEFINED CURRENT RECORD POINTER. 

sta^mfnJ* "J" "I!" "" ,d# t0 execut e * ^mat 1 READ 
statement when the current record pointer has an 

precis: 5tatS - ? iS "" ° CCUr ° nl « as the r»„ of a 
preceding unsuccessful READ or START statement. ^ 

97 INVALID RECORD LENGTH. 

An attempt has been made to execute a REWRITE statement 
^JwV 6 ^ reC ° rd lenflth is differe "t from that of the 
defined with* r6Written ' " *■ OPEN a file that was 
• Itirnin^ J V ? aximum record len 9^ different from the 

Sin. ?k 6n L that 5 P ecifi ^ a record with a length 
record size 3 " »ini"»»* or larger than the maximum 

98 INVALID INDEX. 

An input-output statement on an indexed organization file 

ind\/ nSU TK eSSfUl " a reSUlt ° f invali " d ata in the 
iJ L+ I*" result if th « externally assigned file 

is not an index organization file or if an undetected 
input-output error has occurred. " fl 
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2. 5 File System Considerations 

Three types of files are supported by the COBOL *»"**»" 

files exist on 5 " jj - "} Til information to execute COBOL 
U5eT ""hi , referred to the Technical Information Section of 
^DisT grating S^tem Reference Manual if further information 
is desired. 

Files are specified in the user's program SELECT statement 
according to rules for the TRSDOS filespec, of the form: 

f ilename/ext. password: d 



where: 



'filename' is required. 

'/ext' is an optional name-extension. 

'.password' is an optional password. Note: "*J;"j! 
was created with a nonblank password, .password 
becomes a required field. 

'■d' is an optional drive specification. When omitt.d 
the system does an automatic search, starting with drive 
0. 



1 COBOL Sequential Files 



of 



mBOL seauential files consist of a serially accessible set 
logical' records. These 'logical' records can exist on the disk 



in 



either of two formsi 'variable' or 'fixed 



'variable' records are identified in the F ji^^f, ti0 %^*^ 
i™5l 5P are fy TdenS D T^^i^* ^™ ™ g^ 
^Slon along a!r P r^^e^in:%r ^^ ^fil^ ^^^ 

'variable' records contain a one byte length field at the 
be^Innin of^each record, followed by the actual dat a ^"i.^ 
record length can vary from record to ™c°rd^ The J«ond J^ 
byte indicates the entire length of the recora, format is 
length byte. This can be any value from 2 to 255. This 
stored on the disk as one byte records <LRL-1>. 

'fixed' records are all of the same length and do not "iitain* 
lenqth byte These files exist on the disk as standard TRSDOS 
fixed length' records of length (LRL-) 1 to 255 characters. 

„_,„„, ,, , „ ll4l4a pt _ (RSCOBOL 1.3) 
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2. 5. 2 COBOL Relative Fil 



es 



Se/ 61 ^:: file" e^Vo^T^^^^ by - 10 "*" 1 ' "« — 

1-nes exist on the disk as fixed length records. 

COBOL relative filp /i..j,,i/ 

and can be created and/2 J ""rd. are internally formatted, 
'logical' record cfnh^ accessed only by COBOL programs. Each 
91 record can have a maximum length of 253 bytes. 

re'uired'^y^TRSDOS 165 "' d «" amicall « -Hoc.t.d or extended as 



2. 5. 3 COBOL Indexed Fil 



es 



r^r^L:;^ or^ti'i^n^r*} , by j- cdbol 

of 256 bytes. using TRSDOS fixed length records 



have a maximum leng?h of 4096 Ey£es logical' record can 

int:;s% d ersed B5 u,ith n the n dat: J"""., • tr « tu " '" •«•» ^y specified 
cause a o i H n s "I d L T "" ° f ALTERNATE ^S can 

file; however, access ti*,* ,,<}? J h# J 1 ?* re * ui ™<i to create the 
the file. 6 WlU be rela *ively constant throughout 

re'uirer eX b 6 y d ^Xos"' fX^c"} 1 ", I? 10 "*' - °' """ — " 
approximation for^ffile Ip^ce rSd^r ^en j;-"" «" 

NRECS = Int ((S + 33)/32) * R / 8 

+ <R * 2) / mt <252/<Kn-M3>> foP each key 



+ (R * D) / 8 



if duplicates 



where: 



R ■ maximum number of records desired 

S = size of records (in bytes) 

Kn = size of Kn (in bytes) 

D = number of keys that allow duplicates 
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2.5.4 COBOL Label Processing 

The COBOL language allows the specification of the existence, and 
processing, of Label records on file type devices. 

TRSDOS provides automatic maintenance and validation of file 
specifications by name and file type. No additional Label 
processing is performed unique to COBOL programs or files. 

References to Label processing in the file description entry (FD), 
OPEN statement, and CLOSE statement, are checked for correct 
syntax by the compiler. They are largely ignored by the runtime 
except that appropriate error codes will be returned, and any 
applicable USE procedures will be executed. 

2. 6 Runtime Memory Usage 

The TRSDOS Operating System occupies lower memory from location 
OOOOH to 05200H. The COBOL Runtime is loaded starting at 05200H. 
The remaining memory is allocated as follows: 

The main COBOL object program is loaded immediately behind 
the COBOL Runtime. Space for COBOL overlays (SECTIONS 
greater than 50) are included in this area. 

Additional COBOL programs are loaded behind this main program 
as they are CALLed <See the CALL statement below). 

Assembly Language programs are loaded in high memory at the 
address they were assigned at 'DUMP' time (See Runtime 
'T=hhhh' option). 



File buffers are dynamically allocated from high memory 
downward, when OPENed. deallocated (space recovered for use 
by other files) when CLOSEd. 
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CHAPTER 3 
INTERACTIVE DEBUG 

3. 1 Debug Overview 

«peciMes'th!;"n' "t^ 3 ** '« M,1 "»I loaded when the user 

unroll a i z iir^r^^^r*:*- ^ bus L ^ 

f = = 3 brie execution of the user's program. 



3.2 User Interaction and Display 

t i 5 ter"on5=?r andS ' a " d "" '«»»•»* ".pl-U.. are throu 9 h the 

Debug M in request command input bu a prompt of the form 
nnnnnn xxyyyy 

thnverUrnumber.^V^ 4 & ?-"'*•" « PROGRAM-iD, 






3. 3 Debug Commands 

fill™.?'"!!" r *<"" ifi " "» » single character, optionallu 
su°rro™n ed Da b,° n b%a°c k e:°r e 'bTora'cU t ° Pti °" al fiBl ° s ■" *™ 
numeric .r g ument 5 r :rrL S "he:ed e ec b m a runle.r:t„e e r:Le e n nt t:d d ' *" 

«*:£.!:.. w.... 1 .. „::..;:.«::. e rij^r"' ""*-■• 

ACxxJyyyyC, nnnnnn3 Address stop. 

location °u b u J uu' in nstructions «""! overlay number 'xx' and 
location yyyy ln program nnnnnn is to be executed Dehnn 
will regain control immediately prior to the execution „S Jk 9 
specified rnnni <=»»■»-»... _. execution of the 

specified COBOL sentence, and request further command input. 

MODEL I/I I I COBOL User's Guide - sa 
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If 'xx' is specified, 'yyyy' must be fully four hexadecimal 
digits; if 'xx' is not specified, then leading zeros are not 
required for 'yyyy'. If 'nnnnnn' is omitted, it is assumed 
to be the first six characters of the program-id of the 
currently executing program. 

S[ n ] Single step sentence. 

Execute 'n' COBOL sentences and return to the debug monitor. 

The decimal argument 'n' specifies the number of COBOL 
sentences to be executed before returning the Debug. 

Dxxxx, yyyyC, tttt3 Dump by type. 

Display the COBOL data item starting at hexadecimal location 
'xxxx' of decimal length 'yyyy' and type 'tttt'. The values 
for 'xxxx', 'yyyy'* and 'tttt' are directly from the first 
three columns of the allocation map. 'tttt' may be one of 
the following: 

NSU NPS 

NSS ABS 

NCU ANS 

NCS GRP 

NBS ANSE 

NSE HEX (hexadecimal) 

Dump Display has the format: 

xxxx tttt dddd. . . . 

where dddd = data in the specified format 

Note: Only items in the currently executing program can be 
displayed. This does not include linkage items. 

Q Quit Execution. 

Terminate Debug and force an immediate STOP RUN. Enter 'S' 
to return to TRSDOS. 

E Exit 

Exit the Debugger. Continue normal execution as if the 
debugger had not been invoked on the command line. 
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CHAPTER 4 
SYSTEM CONSIDERATIONS 

4. 1 The ACCEPT and DISPLAY Statements 

between^L 1"^ DI ? PLAY -t-twnt. support the transfer of data 

These t m n1° ar , and J i5Play ^ the UseT " 5 >"*™* da ** -re. 
ihese statements allow the specification of general phrases which 
may not be supported on every CRT. S pnrases which 

b!T?a!!n™!! 1C \ are " 0t "PPort.d will compile correctly, but will 
be ignored at runtime, causing no operation to take place The 
phrases which are not supported are: Place. ihe 

ACCEPT HIGH, LOW, BLINK. 

DISPLAY HIGH, LOW, BLINK, BEEP. 

In" invai?d P c"h!T 'l™** ■ ° f * h# ACCEPT •*•*•«•"* *• executed when 
vali , I ' . 1S entered " Invalid characters include the 
valid control characters (CNTR/n) below 020H, and non-ASCII 
characters above and including OSOH. 

nf!r»H n - i "^ alid character is entered, its ASCI equivalent is 
e.oruLr x S P" ified ^ta-name and the ON EXCEPTION phrase is 
diJin! Jh. I\ determxne which control character was entered, 
ASCII value data ~ name as USAGE COMPUTATIONAL-1 and compare for its 

Jncluding^ 5 ***"* *"* °P eratio " of th. ACCEPT statement, 

^■~ Erases the current character and moves the 

cursor back one position. 

CLEAR Backspace to the beginning of the field, 
erasing all characters in the field. 
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4. 2 The CALL Statement 

Whe n 'CALLed' the first time, COBOL and Assembly ^{"J^J--™- 
are loaded by Runtime and ."V™! ** ^ long as the 'calling' 
These 'called' programs remain «■«£;," before, subsequent 
program is active; i. e. has not EX ilea. Called ' program 
CALLS from the 'calling; P/^ram^ 1 enter the ^ ^^ 
directly, without requiring the caiiea prog. 

u cYTTorf all related 'called' 
0nC e the 'calling' P/ ^ am . , •?** ^loaded if subsequently CALLed 

programs are discarded and will b */ e J ,**^ 1 / ! c- n„,' program. 

by any program. including the P re *io u , program5 , all 

Regardless of the sequence ?*'«"•* a " d ^ orC ed closed by the 

■naLted files not explicitly closed are torcea 

Interface upon EXIT from a given 'called' program. 

x. k« rAi I pd must have been previously 
COBOL programs that are .^^^^0^ or a program name in a 
compiled. The def ault fi ^ am * * C0BQL program will have the 
CALL statement is /COB . ft c omp n '/COB' » then it 

required extension. If the extension used is not 
must be specified in the CALL statement. 

Assembly language programs that are to be CALLed .«.* b. in JRBDOB 
LOAD command format as created by »UNH. «"" re side in high 
other than '/COB'. Assembly language P™J™J ""J* ^J. Runtime 

memory, and the '«' ^f" fl S e i ^ routine. The 
command line to protect all memory ™ J u ^*° a5 * embler programs do 
user is responsible for ensuring that the assemDier p y 
not interfere with each other. 

Assembly language programs . are l !?** VI ^he^COBOL^cal 1 ing" 
'calling' program resides m memory. ^^^ program wi u 
program is reloaded m memory. then the assemoi 
again be reloaded when it is called. 

At entry time to an assembly-language routine register IX points 
to the" parameter list defined by the US I e number of 
statement. The first word on the list '°"* a ^* the USING 
bytes in the list. Subsequent words ar ^.^ d ^ e "^ s °% here a re 2 
arguments: e.g.. if the length word specif *« * J? tes ' 
addresses following the length word. For example. 

<IX) => DW Argument List Length (n * 2 + 2) 
DW USING Argument 1 
DW USING Argument 2 

DW USING Argument n 

t. ^»»onHe nn its dataname PICTURE 
The format of each argument de P*"*f on , JJ PICT URE Clause', 
definition; see the COBOL Language Manual. the Hi^UK* 

At exit time from an assembler routine. register A may be set 

non-zero to request a STOP RUN. 

, « -J. dq - (RSCOBOL 1. 3) 
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4. 3 The COPY Statement 



The COPY statement provides the farm*... *. 

source text from a user-specified Mil T t° It™ <include) COBOL 
The complete fil, is cooied infl Jk " t0 the SOUrce P™gram. 
the location of the JoP^statement pr ° 9ram ' «**»»»* ^ange, at 

statement*" "* C ° Pied i% ide "*i^ in the COBOL program by the 



COPY filename 
or 



COPY "f ilename/ext. password: d" 
where: 

'filename' is required. 

become." lU U i?.?, l t u mm """' '■""•-• '.P«».r*' 

the'.^t.^rf " 410 " 81 / riv " 'Pacification. When omitted 
the system does an automatic search, starting with drive 

musThe^letSerl'can 9 "a'" ?'»•"•" ■"<• ""»">ers (first character 
other forms""* Sr.u^.^i::'^-^^::. ""«»""■ -»*»• AI, 

Examples: 

IDENTIFICATION DIVISION 

COPY STDID. 
ENVIRONMENT DIVISION 

COPY "STDENVIR/TST". 
DATA DIVISION. 

COPY "STDDATA/CBL: 1". 



MODEL I/IU COBOL User's ©uide 



30 " (RSCOBOL 1. 3) 



4. 4 The WRITE. . . ADVANCING ZERO. . . Statement 



The sequential WRITE statement allows control of the vertical 
positioning of each line on the printed page with the ADVANCING 
phrase. 

The ... ADVANCING ZERO LINE(s) ... phrase allows overprinting on 
those print devices which support this feature. In all cases/ the 
phrase will compile correctly. but may operate as though 
...ADVANCING 1 LINE... was specified. 

Standard Radio Shack Line Printers automatically advance after 
each line is printed. Therefore, the ...ADVANCING ZERO LINES... 
phrase will execute as ... ADVANCING 1 LINE. The Compiler and 
Runtime defaults to standard Radio Shack Line Printer operation. 
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CHAPTER 5 
INSTALLATION PROCEDURES 

to the appropriatTCr diskette e NO?r t0 ^ r ? le35e "■*•«.. 
current release level, i. e. , "reJe^:" i. s^Ill b^a, 1 " 1 ' 1 "'" th * 

The modules required to compile COBOL programs are: 

RSCOBOL 
RSCBL2nn/QBJ 
RSCBL3nn/0BJ 
RSCBL4nn/0BJ 

The modules required to execute compiled COBOL programs are: 

RUNCOBOL 
RSCBLDnn/OBJ 

required. secure location m case re-creation is 
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APPENDIX A 
SAMPLE PROGRAMS 
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TRS-80 Model I/III COBOL (RM/COBOl 1 iai 

SOURCE FILE, CALCXMPL <B,/C0BOL '^'op^ Llttt'Vp'lZoS'x""" PASE 

LINE DEBUS PG/LN A. . . B 



1 



7 



IDENTIFICATION DIVISION. 
PROGRAM-ID. 

CALCULATOR. 



3 
4 

■? ENVIRONMENT DIVISION. 

° CONFIGURATION SECTION. 

' SOURCE-COMPUTER. RM C 

|_ OBJECT-COMPUTER. R MC . 

J® DATA DIVISION. 

J.; WORKING-STORAGE SECTION. 

13 77 oppraL , PICTURE S9<9)V9<9> VALUE ZERO. 

14 77 ™SJE?"i PICTURE S9(9)V9<9). 

15 77 SSf? ?2« PICTURE S9(9)V9(9). 

7/ WAIT-CHAR PICTURE X. 

}° 01 GREETING. 

18 02 FILLER PICTURE X<18) 

19 ffli ,.„_„ VALUE "CALCULATOR PROGRAM", 
il 01 OPERATION-MESSAGE. 

2i 02 FILLER PICTURE X(37) 

22 01 ( -,pppatao LUE " CH00SE Y0UR OPERATION (+,-,*,/> «. ». 

Z.Z 01 OPERATOR PICTURE XT"') 

±1 01 RESULT-MESSAGE. ' 

05 02 FILLER PICTURE X(12) 

.t? VALUE "RESULT IS = ". 

2? ?? RE SULT-EDITED PICTURE -(9)9.9(9). 

28 H "™ R - PIC X<4) VALUE SPACES. 

5 0i Sait-S^; field pic x<8) value spaces - 

3? 02 FILLER PICTURE X(36) 

-,0 nA VALUE "HIT NEWLINE TO CONTINUE (0 TO ©IJTT> 

±t 01 OPERAND- 1 -MESSAGE. "UNUt <u TO WUIT) 

-7A 02 FILLER PICTURE X(12) 

SZ VALUE - OPERAND- 1 = » . 

f? 0* OPERAND-2-MESSAGE. 

37 02 FILLER PICTURE X(12) 

VALUE "OPERAND-2 = - 
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TRS-80 Model I/I 1 1 COBOL 
SOURCE FILE: CALCXMPL 



(RM/ COBOL 1.3A) 



10/31/80 00:15:44 PAGE 



OPTION LIST: <P,T,0=2»X 



>^NE DEBUG PG/LN A. 
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39 




40 


>0000 


41 


>0000 


42 


>0000 


43 


>0004 


44 


>0004 


45 


>000C 


46 


>0014 


47 


>001C 


48 


>0024 


49 


>002C 


50 


>0034 


51 


>003C 


52 


>003E 


53 


>003E 


54 


>0042 


55 


>0046 


56 


>004A 


57 


>0050 


58 


>0050 


59 


>0054 


60 


>005C 


.61 


>0064 


y? 


>0066 


o3 


>0066 


64 


>006C 


65 




66 


>0078 


67 


>007C 


68 


>0084 


69 


>0088 


70 




71 


>0094 


72 


>0098 


73 


>00A2 


74 


>00A2 


75 


>00A6 


76 


>00A6 



/ EJECT 
PROCEDURE DIVISION. 
RESIDENT SECTION 1. 
NOT-START. 

GO TO DISPLAY-GREETING. 
RE-TRY. 

DISPLAY OPERATION-MESSAGE* LINE 2, ERASE. 

ACCEPT OPERATOR* POSITION 0* PROMPT, ECHO. 



IF 
IF 
IF 
IF 
IF 
GO 
DISPLAY 



OPERATOR 
OPERATOR 
OPERATOR 
OPERATOR 
OPERATOR 
TO RE-TRY 
RESULT . 



EQUAL 
EQUAL 
EQUAL. 
EQUAL 
EQUAL 



"* 
"/ 
"Q 



GO TO ADDITION. 
GO TO SUBTRACTION. 
GO TO MULTIPLICATION. 
GO TO DI VI -SI ON. 
GO TO END-RUN. 



PROMPT, ECHO. 
END-RUN. 



13, SIZE 10, 



MOVE RESULT TO RESULT-EDITED. 

DISPLAY RESULT-MESSAGE. 

MOVE ZERO TO RESULT. 

MOVE SPACES TO OVERFLOW-FIELD. 
WAIT-ENTRY. 

DISPLAY WAIT-MESSAGE. 

ACCEPT WAIT-CHAR, POSITION 0, 

IF WAIT-CHAR EQUAL. "Q" GO TO 

GO TO RE-TRY. 
GET -OPE RANDS. 

DISPLAY OPERAND- 1 -MESSAGE, LINE 4. 

ACCEPT OPERAND- 1» LINE 4, POSITION 
PROMPT, CONVERT. 

MOVE OPERAND- 1 TO RESULT-EDITED. 

DISPLAY RESULT-EDITED, LINE 4, POSITION 13. 

DISPLAY OPERAND-2-MESSAGE. 

ACCEPT OPERAND-2 , LINE 5, POSITION 13, SIZE 10, 
PROMPT, CONVERT. 

MOVE OPERAND-2 TO RESULT-EDITED. 

DISPLAY RESULT-EDITED, LINE 5, POSITION 13. 
END-RUN. 

EXIT PROGRAM. 
STOP- RUN. 

STOP RUN. 
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TRS-80 Model 
SOURCE FILE: 



I/HI COBOL (RM/ COBOL 1.3A) ua/ii /aa «« 

CAL CXMPl * • oi-w 10/31/80 00:15:44 PAGE 

LALLXMPL OPTION LIST: <P,T,0=2,X 



LINE DEBUG PG/LN A. 



.B. 



77 

78>0100A8 

79>0100A8 

80>0100A8 

81>0100AA 

82 

83>0100B8 
84 

85>0200A8 
86>0200A8 
87 > 0200 AS 
88 > 0200 A A 
89 

90>0200B8 
91 

92 > 0300 AS 
93>0300A8 
94 > 0300 AS 
95 > 0300 A A 
96 

97>0300B8 
98 

99>0400A8 
100>0400A8 
101>0400A8 
102>0400AA 
103 

104>0400BA 
105 

106>0500A8 

107>0500A8 

108>0500A8 

1 09 > 05 00 AC 

110 

111 



/ EJECT 

OVERLAY-ADDITION SECTION 51. 
ADDITION. 

PERFORM GET-OPERANDS. 

ADD OPERAND- 1 OPERAND-2 GIVING RESULT 

-. J? N SIZE ER ROR MOVE "OVERFLOW" TO OVERFLOW-FIELD 
kO TO DISPLAY-RESULT. MtLD. 

OVERLAY-SUBTRACTION SECTION 52. 
SUBTRACTION. 

PERFORM GET-OPERANDS. 

SUBTRACT OPERAND-2 FROM OPERAND- i GIVING RESULT 

ON SIZE ERROR MOVE "OVERFLOW" TO OVERFLOW-FIELD 
GO TO DISPLAY-RESULT. l-lbLD. 

OVERLAY-MULTIPLICATION SECTION 53. 
MULTIPLICATION. 

PERFORM GET-OPERANDS. 

MULTIPLY OPERAND- 1 BY OPERAND-2 GIVING RESULT 

ON SIZE ERROR MOVE "OVERFLOW" TO OVERFLOW-FIELD 

GO TO DISPLAY-RESULT. v*m-L..w nu_u. 

OVERLAY-DIVISION SECTION 54. 
DIVI-SION. 

PERFORM GET-OPERANDS. 

DIVIDE OPERAND- 1 BY OPERAND-2 GIVING RESULT ROUNDED 

r , "^SIZE ERR0R M0VE "OVERFLOW" TO OVERFLOW-FIELD. 

GO TO DISPLAY-RESULT. 

OVERLAY-DISPLAY-GREETING SECTION 98. 
DISPLAY-GREETING. 

DISPLAY GREETING. 

GO TO WAIT-ENTRY. 

END PROGRAM. 
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TRS-80 Model I/I 1 1 COBOL. (RM/COBOL 1.3A) 10/31/80 00:15:44 PAGE 

SOURCE FILE: CALCXMPL OPTION LIST: <P»T»0=2»X 



1RESS SIZE DEBUG ORDER TYPE 



NAME 



>0004 19 NSS NUMERIC SIGNED 

>0018 19 NSS NUMERIC SIGNED 

>002C 19 NSS NUMERIC SIGNED 

>0040 1 ANS ALPHANUMERIC 

>0042 IS GRP GROUP 

>0054 37 GRP GROUP 

>007A 2 ANS ALPHANUMERIC 

>007C 44 GRP GROUP 

>0088 20 NSE NUMERIC EDITED 

>00A0 8 ANS ALPHANUMERIC 

>00AS 36 GRP GROUP 

>00CC 12 GRP GROUP 

~^00D8 12 GRP GROUP 



RESULT 

OPERAND- 1 

OPERAND-2 

WAIT- CHAR 

GREETING 

OPE RAT I ON-MESSAGE 

OPERATOR 

RESULT-MESSAGE 
RESULT-EDITED 
OVERFLOW-FIELD 

WAIT-MESSAGE 

OPERAND- 1 -MESSAGE 

OPERAND-2-MESSAGE 



READ ONLY BYTE SIZE = >01BE 
READ/WRITE BYTE SIZE = >00EC 
OVERLAY SEGMENT BYTE SIZE = >002E 
TOTAL BYTE SIZE = >02D8 

ERRORS 

WARNINGS 
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TRS-80 Model 
SOURCE FILE: 



I/I 1 1 COBOL. 
CALCXMPL 



(RM/ COBOL 1.3A) 



10/31/80 00:15:44 
OPTION LIST: <P,T»0=2»X 



PAGE 



CROSS REFERENCE 

ADDITION 

DISPLAY-GREETING 

DISPLAY-RESULT 

DIVI-SION 

END-RUN 

GET-OPERANDS 

GREETING 

MULTIPLICATION 

NOT-START 

OPE RAND- 1 

OPERAND- 1 -MESSAGE 

OPERAND-2 

OPERAND-2-MESSAGE 

OPERAT I ON-MESSAGE 

OPERATOR 

OVERFLOW-FIELD 

OVERLAY-ADDITION 

OVERLAY -DISPLAY-GREETING 

OVERLAY-DIVISION 

OVERLAY-MULT I PL I CAT I ON 

OVERLAY-SUBTRACT I ON 

RESIDENT 

RESULT 

RESULT-EDITED 

RESULT-MESSAGE 

RE-TRY 

STOP- RUN 

SUBTRACTION 

WAIT-CHAR 

WAIT-ENTRY 

WAIT-MESSAGE 



/DECL/ *DEST* 



0046 

0042 

/0052V 

0049 

0050 

/0062/ 

/0016/ 

0048 
/0041/ 
/0013/ 
/0032/ 
/0014/ 
/0035/ 
/0019/ 
/0022/ 
/0028/ 
/0078/ 
/0106/ 
/0099/ 
/0092/ 
/0085/ 
/0040/ 
/0012/ 
/0026/ 
/0023/ 
/0043Z 
/0075/ 

0047 
/0015/ 
/0057Z 
/0029/ 



/0079/ 

/0107/ 
0083 

/0100/ 
0060 
0080 
0108 

/0093/ 

*0064* 
0063 

*0069* 
0068 
0044 

*0045* 

*0056* 



0053 

*0053* 

0054 

0051 

/0086/ 

*0059* 

0109 

0058 



0090 0097 0104 

/0073/ 
0087 0094 0101 



0066 0081 *0088* 0095 0102 
0071 0081 0088 *0095# 0102 



0046 0047 0048 0049 0050 
*0082* *0089* *0096* *0103* 



*0055* *0081* *0088* *0095* *0102* 
*0066* 0067 *0071* 0072 /— s 

0061 



0060 
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SOURCE FILE: ERRXMPL 



1.3A) 



OPTION 



10/31/80 
>T: <T»P»0=2»X 



PAGE 



L 



DEBUG PG/LN A, 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
•"-*4 
i 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

***** 
***** 
45 

7 

,3 



000010 

000020 

000030 

000040 

000050 

000060 

000070 

000080 

000090 

000100 

000110 

000 1 20 

000130 

000 1 40 

000150 

000160 

000170 

000180 

000190 

000200 

0002 1 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

0004 1 

000420 

000430 

000440 



IDENTIFICATION DIVISION. 

PROGRAM- ID. 

ERROR-EXAMPLES. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. RMC-MINI. 
OBJECT-COMPUTER. RMC-MINI . 
INPUT-OUTPUT SECTION. 
FILE- CONTROL. 

SELECT INPUT-FILE 

ASSIGN TO INPUT? INPUT-NAME? 

FILE STATUS IS INPUT-STATUS. 
SELECT OUTPUT-FILE 

ASSIGN TO OUTPUT? OUTPUT-NAME; 

FILE STATUS IS OUTPUT-STATUS. 



DATA DIVISION. 

FILE SECTION. 

FD INPUT-FILE 

RECORD CONTAINS 
LABEL RECORD IS 

01 INPUT-REC. 



05 FILLER 
05 INPUT-FLD 
05 AREA-FLDS 
10 AREA-C 
10 A RE A- A 
10 AREA-B 
05 FILLER 

FD OUTPUT-FILE 

RECORD CONTAINS 
LABEL RECORD IS 

01 OUTPUT-REC. 
05 SEQ-FLD 
05 OUTPUT-FLD 
05 FILLER 

WORKING-STORAGE 

77 INPUT-NAME 

77 OUTPUT-NAME 

77 COUNT 

77 LARGE-VALUE 

77 PIC-ERROR 



80 CHARACTERS 
OMITTED. 

PIC X(06). 
PIC X(66). 
REDEFINES INPUT-FLD. 



PIC 
PIC 
PIC 
PIC 



X<01). 
X(04). 
X(61). 
X(08). 



80 CHARACTERS* 
OMITTED. 



PIC 
PIC 
PIC 



9(06) 
X(66) 
X<08) 



ECTION. 



PIC 
PIC 
PIC 
PIC 
PIC 



X(28) 
X(28) 
9(06) 
X(04) 
*(05) 



0. 
"ERROR" 



1) PICTURE 

1 ) SCAN RESUME 
000450 77 
000460 77 
000470 01 
000480 



VALUE 
VALUE 
*9. 
* 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 

I NPUT-ST ATUS PIC X ( 04 ) . 
OUTPUT-STATUS PIC X(02). 
SEQ-VALUE PIC 9(06). 
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OPTION L 



10/31/80 
1ST: <T,P,0= 



00 : 2: 
■2iX 



:43 PAGE 



49 
50 

51 

53 
54 

55 
56 

***** 
***** 
57 
58 
59 
60 

***** 
***** 
61 
62 
63 
64 
65 
66 

***** 
67 

***** 
68 

***** 
***** 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

***** 
***** 

79 

80 

***** 

***** 

81 



/ 



SEQUENCER", 
ERASE. 



000490 PROCEDURE DIVISION. 
>0000 000500 0100. 
>0000 000510 DISPLAY "COBOL PROGRAM 

000520 LINE 1 POSITION 30 

>000A 000530 DISPLAY SPACES LINE 2. 
>0010 000540 DISPLAY "INPUT FILE: ". 
>0014 000550 MOVE' 3.5 TO OUTPUT-STATUS. 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 

ACCEPT INPUT-NAME POSITION PROMPT ECHO. 
DISPLAY "OUTPUT FILE: 

ACCEPT OUTPUT-NAME POSITION PROMPT ECHO. 
OPEN INPUT INPUT-FILE. 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 

OPEN OUTPUT OUTPUT-FILE. 
MOVE SPACES TO OUTPUT-REC. 
MOVE TO SEQ-VALUE. 
DISPLAY "SEQUENCING BEGUN". 
0200. 

READ INPUT-FILE AT END 

* ^-\ 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*. 
GO TO 0300. 
* 

*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
PERFORM IN PUT- CHECK. 

BE PROCEDURE *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 



1) MOVE 

2) SCAN RESUME 
>0016 000560 
>001E 000570 
>0022 000580 
>002A 000590 

1) INVALID ID 

2) SCAN RESUME 
>002C 000600 
>0032 000610 
>0036 000620 
>003A 000630 
>0040 000640 
>0040 000650 



1) INVALID 
000660 



ID 



1) SCAN RESUME 
>0046 000670 



1) MUST 
1) SCAN 



>0048 
>004E 
>0052 
>0056 
>0062 
>0068 
>006A 
>006A 



>0074 



000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 



0300, 



ADD 10 TO SEQ-VALUE. 

MOVE SEQ-VALUE TO SEQ-FLD. 

MOVE INPUT-FLD TO OUTPUT-FLD. 

WRITE OUTPUT-REC. 

ADD 1 TO COUNT. 

GO TO 0200. 



POSITION 0. 



DISPLAY COUNT, 

" RECORDS SEQUENCED AND COPIED" 

CLOSE INPUT-FILE, OUTPUT-FILE. 

* * 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 

STOP RUN. 

GO TO 0150. 

* 
1) MUST BE PROCEDURE *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E>E 
1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*t'^^ 
000800 END PROGRAM. 



1) INVALID ID 

2) SCAN RESUME 
>0076 000780 
>0078 000790 
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^npRES 



&S SIZE DEBUG ORDER TYPE 



>0000 
>0006 
>0006 
>0006 
>0007 
>000B 



>0050 
>0050 
>0056 

>00A4 

>00C0 

>00DC 

>00E2 

>00E6 

>00F2 
>00F4 



FILE 
80 GRP GROUP 

66 ANS ALPHANUMERIC 

66 GRP GROUP 

1 ANS ALPHANUMERIC 
4 ANS ALPHANUMERIC 

61 ANS ALPHANUMERIC 

FILE 

80 GRP GROUP 

6 NSU NUMERIC UNSIGNED 

66 ANS ALPHANUMERIC 

28 ANS ALPHANUMERIC 

28 ANS ALPHANUMERIC 

6 NSU NUMERIC UNSIGNED 

4 ANS ALPHANUMERIC 

166 ANS ALPHANUMERIC 

4 ANS ALPHANUMERIC 

2 ANS ALPHANUMERIC 

6 NSU NUMERIC UNSIGNED 



RESERVED WORD CONFLICT *W*W*W*W*W*W*W*W*W*W*W*W 
ILLEGAL PERFORM *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
UNDEFINED PROCEDURE *E*E*E*E*E*E*E*E*E*E*E*E*E*E 
VALUE ERROR *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
FILE STATUS ERROR *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 



NAME 

INPUT-FILE 
INPUT-REC 
INPUT-FLD 
AREA-FLDS 
AREA--C 
AREA-A 
AREA-B 

OUTPUT-FILE 
OUTPUT-REC 
SEO-FLD 
OUTPUT-FLD 

INPUT-NAME 

OUTPUT-NAME 

COUNT 

LARGE-VALUE 

PIC-ERROR 

INPUT-STATUS 

OUTPUT-STATUS 

SEQ-VALUE 

COUNT 

INPUT-CHECK 

0150 

LARGE-VALUE 

INPUT-FILE 



READ ONLY BYTE SIZE = >017E 
READ/WRITE BYTE SIZE = >0138 
OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >02B6 

^11 ERRORS 
8 WARNINGS 
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(RM/ COBOL 1.3A) 



CROSS REFERENCE 

AREA-A 

AREA-B 

AREA-C 

AREA-FLDS 

COUNT 

INPUT-CHECK 

INPUT-FILE 

INPUT-FLD 

INPUT-NAME 

INPUT-REC 

INPUT-STATUS 

LARGE-VALUE 

OUTPUT-FILE 

OUTPUT-FLD 

OUTPUT-NAME 

OUTPUT-REC 

OUTPUT-STATUS 

PIC-ERROR 

SEQ-FLD 

SEQ-VALUE 

0100 

0150 

0200 

0300 



10/31/80 
OPTION LIST: (T»P,0= 



00:22:43 
■2.1 X 



PAGE 



/DECL/ *DEST* 



/0029/ 






/0030/ 






/002B/ 






Z0027/ 






/0042Z 


*0073* 


0076 


0068 






/0012/ 


/0021/ 




/0026/ 


/0027/ 


0071 


*0013* 


/0040/ 


*0057* 


/0024/ 






*0014* 


Z0045/ 




/0043/ 






/0015/ 


/0032/ 


0061 


/0037/ 


*0071* 




*0016* 


/0041/ 


*0059* 


/0035/ 


*0062* 


*0072* 


*0017* 


Z0046/ 




/0044/ 






/0036/ 


*0070* 




/0047/ 


*0063* 


*0069* 0070 


/0051/ 






0080 






/0065/ 


0074 




0067 


/0075/ 
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This section will take you through a compilation and execution 
session, starting with a COBOL source file. We will use the 
sample program, CALCXMPL/CBL, included with your COBOL 
diskettes. 



Note for Model III users: References will be made to the 
separate Development and Runtime diskettes. Since Model III 
diskettes will hold the complete system, your one diskette will 
take the place of both the Development and Runtime diskettes. 



STEP ONE. Create the source file. 

In this session, we will use the sample program, CALCXMPL/CBL, 
for the source file. To create your own source file, follow the 
instructions in the COBOL Editor (CEDIT) User's Guide. 

STEP TWO. Compile. 

When compiling (RSCOBOL), the COBOL Development diskette must be 
in one of the drives. The program being compiled must also be 
on a diskette, although not necessarily on the same one as 
RSCOBOL. Our sample program is on both the Development and the 
Runtime diskettes. Also, there must be some free space on one 
of the diskettes for the Compiler to write the compiled version 
of your program. 

With the COBOL Development diskette in one of the drives, type 
under TRSDOS READY: 

RSCOBOL CALCXMPL (T) 
The T option causes a listing to be displayed at the console. 
See Section 1.3.2 in the COBOL USER'S GUIDE for other Compiler 
options that are available. 

This command creates an object file that can be executed by the 
COBOL Runtime. This file will automatically be named 
CALCXMPL/COB . Compiled programs are always written to disk with 
the /COB extension and will be written on the first available 
diskette that has enough free space. 

STEP THREE. Execute. 

Model I users take out the Development diskette and replace it 
with the Runtime diskette. Also be sure that the diskette 
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containing the newly compiled version of our sample program is 
still on one of the drives. 

Under TRSDOS READY, type: 

RUNCOBOL CALCXMPL 
The Runtime will execute the program CALCXMPL/COB. See Section 
2.3.1 of the COBOL User's Guide for Runtime options. 
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CONVERSION SESSION 
FOR MODEL III USERS 



The diskettes you have contain all the files needed to 

compile and run COBOL programs. However, these diskettes are 
formatted for a Model I and need to be converted to Model 
Illbefore you can use them. You will need one blank formatted 
diskette for this procedure. 

First, BACKUP your Model III system diskette to the blank 
diskette. Take out your old Model III system disk and move the 
newly created system disk to drive 0. Use the PURGE :0 (SYS) 
command to delete all user files and all unnecessary system 
files. CONVERT/CMD is the only system file that is essential 
for the following procedure. You must have at least 130 free 
granules of space on the new system diskette. Check the 
directory to see how much space you do have. 

Place the COBOL Development diskette in drive 1. Then use 
the conversion utility as shown below. 

TRSDOS Ready 
CONVERT <ENTER> 

The conversion utility will return with a prompt for Source 
Drive (you will enter 1) and Destination Drive (you will enter 
) . The password on both the Development and the Runtime 
diskette is "PASSWORD 1 . 

The utility will convert the files to Model III format, 
writing the converted version onto the diskette in drive 0. 
Some of the files are passworded and the utility will prompt you 
as in the example shown below: 

Enter Password for RSCOBOL/CMD ? 

Just press <ENTER> and the files will be converted and 
transferred. Passwording does not prevent you in any way from 
using them. 

Five of the files are passworded and you will have to press 
<ENTER> after every prompt. Four files are not passworded and 
will automatically be converted and written on drive 0. 

When the conversion is complete the utility displays a 
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message telling you that it is done and then returns control to 
TRSDOS. 

Put the COBOL Runtime diskette in drive 1 and once again 
use the CONVERT utility the same way as described above. There 
are some passworded files on this diskette also, so you will 
have to press <ENTER> when asked for the file passwords. Also, 
some of the files are stored on both diskettes. When trying to 
CONVERT the file the second time you will get the following 
message: 

CALCXMPL/COB Existing file. Use it (Y/N/Q)? 

Type N to use the previously converted file. The Y option 
will Convert the file again unnecessarily and the Q option will 
stop the CONVERT utility. To have more free space on the 
diskette you may PURGE the CONVERT utility when the conversion 
is complete, but it is not necessary. Label this new diskette 
to show that it contains the complete COBOL package. 

We suggest that you make backups of your new COBOL diskette 
or keep the Model I version COBOL diskettes. This will give you 
some security against losing your COBOL package. 

You may want a diskette with just the minimal Runtime files 
on it for running previously compiled programs. You will need a 
blank formatted diskette. BACKUP your COBOL diskette onto this 
new diskette. Then use the PURGE command to delete all but the 
necessary Runtime files. The only files that you need to keep 
on the new diskette are RUNCOBOL/CMD and RSCBLDnn/OBJ. (nn 
refers to the version number.) 

Remember that only programs that have been already compiled 
using RSCOBOL can be used with this Runtime diskette. 
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CUSTOM MANUFACTURED IN THE USA FOR RADIO SHACK JO? A DIVISION OF TANDY CORP. 
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C E D I T 
SOURCE PROGRAM EDITOR 



USER'S GUIDE 



(C) COPYRIGHT 1980 BY RADIO SHACK, 
A DIVISION OF TANDY CORPORATION 
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CEDIT 



TABLE OF CONTENTS 

INTRODUCTION 3 

SOURCE FILE FORMAT 3 

TO START THE EDITOR 4 

MODES OF OPERATION 5 

USING THE COMMAND MODE 6 

SPECIAL KEYS IN THE COMMAND MODE 7 

COMMANDS 8 

B (PRINT BOTTOM LINE) 8 

C (CHANGE) 8 

D (DELETE) 9 

E (EDIT) 9 

F (FIND) 10 

H (HARD COPY) 11 

I (INSERT) 11 

L (LOAD FROM DISK) 12 

M (MEMORY USED/FREE) 13 

N (RENUMBER) 13 

P (PRINT TO DISPLAY) 14 

Q (QUIT SESSION) 14 

R (REPLACE) 14 

T (PRINT TOP LINE) 15 

W (WRITE TO DISK) 15 

X (CHANGE WITH PROMPTS) 15 
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INTRODUCTION 



CEDIT lets you create and edit COBOL source files (the files 
that are input to the COBOL Compiler). 



Capabilities and features: 

. Allows you to load in ("chain") multiple source files. 

. Single-key abbreviations for many commands 

. Powerful intra-line editing mode 

. "M" command informs you of memory used/free at any time 

. Global string find/change commands 

. Editor provides line numbers in the range 0-65535 



SOURCE FILE FORMAT 



f Source files are written to disk in the format required by the 

COBOL compiler, as follows: 

1. Files are fixed-length record (FLR) type, LRL=256, as 
described in the TRSDOS Reference Manual. 

2. Each record in the file corresponds to one line of source 
program. The first six data bytes in a record represent the 
sequence number in ASCII form followed by the COBOL source code. 
The carriage return (<ENTER>) used to terminate the line during 
line insertion is stored. 

3. Text is stored exactly as it is displayed on the video, e.g., 
spaces are stored as spaces, not as a tab character. 



Radio /hack 

PAGE 3 



TRS-80 MODEL I/III COBOL CEDIT 

TRS-80 ® 



TO START THE EDITOR 



The editor program is included on the COBOL program diskette, 
It has the file name CEDIT. 

To use the editor, put the COBOL diskette into one of your 
drives, and under TRSDOS READY, type: 

CEDIT 

The editor will start up with the prompt: 

TRS-80 Cobol Editor Ver v.r 
Copyright (c) 1980 Tandy Corp. 



Where v is the version and r is the release number. The > 
indicates you are in the command mode. 



Radio /haed 



PAGE 4 



TRS-80 MODEL I/III COBOL CEDIT 

■ TRS-80 rM 



MODES OF OPERATION 



There are three modes of operation: 

. COMMAND, for entering the editor commands 

. INSERT, for entering your text lines 

. EDIT, for interactive editing of a line of text 

COMMAND MODE 

The > prompt followed by the blinking cursor indicates the 
editor is waiting for you to type in a command. Every command 
must be completed by pressing <ENTER>. To cancel a command, 
press <BREAK>. 

INSERT MODE 

You enter text one line at a time; a line consists of up to 255 
characters, including the five-digit line number provided by 
CEDIT. Line numbers can range from to 65535. 

The I command puts you in the insert mode. When you start 
inserting a line, the editor displays the five-digit line number 
followed by the blinking cursor. Your text can begin in column 
seven. (See the COBOL Language Reference Manual for 
column-field uses in COBOL source programs.) 

To store the current line, press <ENTER>. The editor will 
display the next line number, and you can begin inserting into 
that line. To cancel the current line and return to the command 
mode, press <BREAK>. See I Command for details. 

EDIT MODE 

There are many powerful edit sub-commands — identical in most 
cases to those in Model I and III BASIC'S Edit Mode. There is 
also a sub-edit insertion mode in which the keys you type are 
inserted into the line at the current cursor position. 

To start editing a line, use the E command. After editing the 
line, press <ENTER> to save the corrected line and return to the 
command mode. To cancel all changes made and return to the 
command mode, press <Q>. For further details, see E Command. 
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USING THE COMMAND MODE 



Special terms used in the command descriptions: 

"text", "text buffer", "text area" 

All refer to the COBOL source program currently in RAM. 

"current line" 

The line most recently inserted, displayed or referenced in a 
command. When there is no text in RAM, current line is set to 
100. Immediately after a file is loaded, the current line is 
set to the beginning of the text. 

"increment" 

The value which is added to the current line number whenever the 
editor needs to compute a new line number. After startup, 
loading a new file, and when there is no text in RAM, the 
increment is set to 10. 

"line-reference" 

Either an actual line number from to 65535, or one of the 

following special abbreviations: 

Symbol Meaning 

# Beginning line of text (lowest-numbered line) 
Current line 

* Last line of text (highest-numbered line) 

"line-range" 

This can be either a single-line reference or a pair of 

line-references separated by a colon: 

Sample 

Command Meaning 

P100 Prints line 100 o.nly 

P100:300 Prints all lines from 100 to 300 

p # : « Prints all lines from beginning to current 

"delimiter" 

A special character used to delimit (mark the beginning and end 

of) a string. Any of the following characters can be used: 
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!"#$%&■()* + ,-./:;< = >? 

Whichever character is used to mark the beginning of a string 
must also be used to mark the end of the string. 

Sample use... Marks this string... 

'THIS " MARK' THIS " MARK 

/X'8000'/ X'SOOO' 

& ~~~ & (seven blanks) 

(The "~" symbol represents a blank space. It is used only where 
necessary for emphasis or illustration.) 



SPECIAL KEYS IN THE COMMAND MODE 



< BREAK > 

Press this key to cancel the command you are entering, or to 

abort a command which is currently being executed. 

<right-arrow> 

Advances the cursor to the next four -column boundary 
(boundaries are at columns 4, 8, 12, ...) 

< ENTER > 

Pressing this key at the beginning of a command line displays 

the current line. 



<up-arrow> 

Pressing this .key at the beginning of a command line displays 

the line which precedes the current line. 

<down-arrow> 

Pressing this key at the beginning of a command line displays 

the next line after the current line. 

shift<left-arrow> 

Erases the command you are entering. 

<@> 

Pauses H and P commands. Press any other key to continue. 
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COMMANDS 



Note: Spaces are not significant in command lines. For example, 

P 1 : 5 
has the same effect as 

Pl:5 
The P command is explained later on. 



B 

Displays the bottom line (last line in the text area). 

C/search-string/replacement-string/n 

Finds, changes, and displays the first n lines, from the current 
line, that contain search-string. In each of these lines 
search-string is changed to replacement-string. ONLY THE FIRST 
OCCURRENCE OF search-string IN A SINGLE LINE IS COUNTED AND 
CHANGED. If the end of text is reached before n finds, the 
message "string not found" will be displayed. 

Upon completion of the command, the current line is set to the 
line of the last find, or to the first line of text when "string 
not found" is displayed. 

/search-string/ is a sequence of characters delimited by 
a matched pair of characters from the set: 

I" #$%&'()* + ,-./:;<=>? 

replacement-string/ is a sequence of characters terminated 
by the same character used to delimit search-string. 



n 



Tells the maximum number of "changes" you want. n can 
be a number or an asterisk. The asterisk means change 
and list all occurrences. If n is omitted, only the 
first occurrence is changed and listed. 

Sample 

Commands Notes 



C/VAR=/NET=/ Changes the first occurrence of 

"VAR=" to "NET=" in the first 
line that contains it. 

C"VAR="NET=" Same as above. 
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C/RETRY/R/4 



Changes the first occurrence of 
"RETRY" to "R" in the first four 
lines that contain it. 

C/MISPELING /MIS-SPELLING/* 

Changes the first occurrence of 
"MISPELING" to "MIS-SPELLING" in 
every line that contains it. 

C/EXTRA//* Changes the first occurrence of 

"EXTRA" to "" (null string) 
i.e., deletes the first "EXTRA" in every 
line that contains it. 



D line-range 

Deletes lines in the specified range and renumbers the following 
lines using the current increment. If line-range is omitted, 
the current line is deleted. 

Sample 

Commands Notes 



D. or D 

D2 

D98.-115 


D1000: 


. * 



Deletes the current line. 

Deletes line number 2. 

Deletes lines found in the range 98 to 

115. 

Deletes all lines numbered 1000 or 

higher to end of text. 



E line-reference 

Starts edit mode using the specified line. If line-reference is 
omitted, the current line is used. 

Edit sub-commands: 

<ENTER> Ends editing and returns to command mode. 

shif t<up-arrow> Causes escape from sub-edit insertion 

(X, I, and H sub-commands ) and returns to 
edit mode. 



n <SPCBAR> 



Advances cursor n columns. 
If n is omitted, 1 is used, 



X 



"Lists" working copy of the line and 
starts a new working copy. 

"Extends" line: positions cursor to end 

of line and enters sub-edit insertion mode. 

Use shif t<up-arrow> to escape to edit mode. 

Enters sub-edit "insertion" mode at the 
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current cursor position; use shif t<up-arrow> 
to escape to edit mode. 

A ("Again") Cancels changes and starts a new 

working copy of the line. 

E ("End") Saves edited line and exits to 

command mode, > prompt. 

Q ("Quit") Cancels changes and returns to 

command mode, > prompt. 

H "Hacks" remainder of line beginning at 

current cursor position and enters sub-edit 
insertion mode. Use shif t<up-arrow> to 
escape to edit mode. 

nD "Deletes" n characters beginning at current 

cursor position. If n is omitted, 1 is used. 
The deletion is not echoed; use <L> to see 
the line with characters deleted. 

nC "Changes" next n characters from the current 

cursor position, using the next n characters 
typed. If n is omitted, 1 is used. 

nSc ("Search") Moves cursor to nth occurrence of 

character c. Search starts at next character 
after the cursor. If n is omitted, 1 is 
used. 

nKc ("Kill") Deletes all characters from current 

cursor position up to nth occurrence 
of character c, counting from current 
cursor position. If n is omitted, 1 is 
used. The deletion is not echoed; use <L> 
to see the line with characters deleted. 



F/search-string/n 

Finds and displays the first n lines which contain 
search-string, starting at the current line. ONLY THE FIRST 
OCCURRENCE OF search-string IN A SINGLE LINE IS COUNTED. If the 
end of text is reached before n finds, the message "string not 
found" will be displayed. 

Upon completion of the command, the current line is set to the 
line of the last find, or to the first line of text when "string 
not found" is displayed, 
/search-string/ is a sequence of characters delimited by 

Radio /haelf 



PAGE 10 



TRS-80 MODEL I/III COBOL CEDIT 



Ctm) 



n 



a matched pair of delimiters chosen from the set: 
I" #$%&'()* + ,-./:;< = >? 

Tells the maximum number of "finds" you want. n can be a 
number or an asterisk. The asterisk means find and list all 
occurrences. If n is omitted, only the first occurrence is 
listed. 

Sample 

Commands Notes 



F/VAR=/ Finds and displays the first line that 

contains the string "VAR=". 
F"VAR=" Same as above. 

F/RETRY/4 Finds and displays the first eight lines 

containing at least one occurrence of 

"RETRY". 
F/MISPELING/* Finds and displays every line containing 

at least one occurrence of "MISPELING". 



H line-range 

( "Hard -copy") Lists to the printer all lines found in the 
specified range. If line-range is omitted, all the lines after 
and including the current line are printed. 

The printer should be initialized (with FORMS) before you 
execute this command. 

Sample 

Commands Notes 



H#:* Lists all lines to the printer. 

H7020 Lists line 7020 to the printer. 

H672:800 Lists all lines found in the range 672 to 

800. 



I start-line, increment 

Starts the insert mode. 

start-line is a line-reference telling the editor where to begin 
inserting into the text. If omitted, the current line 
is used. 

, increment is a number telling the editor how to compute 

successive line numbers. If omitted, the current increment 
is used. 

Radio /hack 
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next line number (start-line + increment). 
Special Keys in the Insert Mode 

-> Advances the cursor to the next eight-column 

boundary (8, 16, 24, ...). 

shift <- Erases the line and starts over. 



<- 



Backspaces the cursor and erases the character 



<ENTER> Marks the end of the current line. The editor will 
store the current line and start a new one, using 
increment to generate the next line number. 

Overwriting lines 

An automatic line numberer is provided to prevent you from 
accidentally overwriting lines already entered. If a line 
number conflict occurs the complete file will be renumbered from 
the current start-line by the current increment. 

Sample 

Commands Notes 



I Start inserting at current line number, 

using current increment. 
1,1 Start inserting at current line number, 

using 1 as an increment. If current line 

number is in use, start with current line 

plus 1 . 
145,2 Start inserting at line 45 with an 

increment of 2 . If line 45 is in use, 

start with line 47. 
1100 Start inserting at line 100, using the 

current increment. If line 100 is in 

use, start with 100 plus increment. 

L filespec 

Loads a source file from disk. If there is already text in RAM, 
the editor will ask whether you want to chain the new text onto 
the end of the old, or clear out the old first. If you chain 
the new text onto the old, the line numbers will start at the 
current start-line and be incremented by the current increment. 

filespec is a TRSDOS file specification for a FLR text file. 
The file may have been created by this COBOL editor or by 
another means. However, it must be in the COBOL source file 
format. (See Source File Format.) 
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Sample 
Commands 

L DEMO/BAS:l 
L XDATA 



Notes 

Load DEMO/BAS from drive 1 
Load XDATA 



M 

Prints the number of characters in the source text (excluding 
the editor's line numbers) and the amount of memory free for 
text storage. 



Sample 
Command 



Notes 



M 



A typical response in a 48K system might 

might look like this: 

000427- TEXT 

039383- MEMORY 

Meaning you have 427 bytes 

39383 free bytes of memory 



of text, and 
available . 



N start-line, increment 
Renumbers the entire text. 

Note: The renumbering commands DO NOT RENUMBER LINE REFERENCES 
inside your program text; do not use them unless you are not 
concerned wth line references (GOTO, IF... THEN ..., GOSUB, 
etc.). To renumber your program properly, use the Compiler 
COBOL RENUMBER command. 

start-line becomes the lowest line number when the text is 
renumbered. If start-line is omitted, the current line 
number is used. 

increment is used in computing successive line numbers. If 
omitted, the current increment is used. 

The current line before numbering is also the current line after 
renumbering. 



Sample 
Commands 



Notes 



N 
N100 



Repeats the last renumbering command. 
Renumbered text will start with line 100; 
successive lines computed with the 
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current value of increment. 

As above; line numbers at increments 

of 25. 



P line-range 

Prints the specified lines to the display. If line-range is 
omitted, 14 lines starting at the current line are displayed, 



Sample 




Commands 


Notes 


P 


Prints 




line. 


P233 


Prints 


P. 


Prints 


P* 


Prints 


P140:615 


Prints 



14 lines starting at current 

line 233. 

the current line. 

the last line. 

Prints the lines within the specified 
range. Lines 140 and 615 don't have to 
be existing line numbers. 



Terminates session and returns to TRSDOS. 
not written to disk. 



The source text is 



R line-reference, increment 

Replaces contents of the specified line and continue in insert 
mode. If line-reference is omitted, the current line is used. 
If increment is omitted, the current increment is used. Also 
renumbers the complete file using the current start-line and the 
new increment. 

The R command is equivalent to the D (delete) command followed 
by the I (insert) command. When you enter the command, the 
editor deletes the specified line and puts you into the insert 
mode, starting with the line just deleted. 

After you press <ENTER>, the editor will contine in the insert 
mode, prompting you to enter the text of the next line number. 
To escape from the insert mode, press <BREAK>. 



Sample 
Commands 

R125,3 



Notes 

Prompts you to insert replacement 
text for line 125. Subsequent line 
numbers will be generated with an 
increment of 3. 
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R* Prompts you to insert replacement 

text for the highest numbered line in 

the text area; subsequent lines will 

be generated using the current increment, 



T 

Displays the top line (first line in the text area) 

W filespec 

Writes the text in RAM into the specified file. 

filespec is a TRSDOS file specification. If file already exists, 
its previous contents will be lost. 

Sample 

Commands Notes 



W DEM0/CBL:1 Save DEMO/CBL onto drive 1. 

W XDATA Save XDATA/CBL onto first available drive. 

X/search-string/replacement-string/n 

This command is exactly like the C (Change) command, except that 
it displays the line to be changed and queries you (Change? ) 
each time it finds search-string. If you answer Y, the line will 
be changed; any other answer leaves the line unchanged. In 
either case, the process continues until all first occurrences 
have been found. 

Sample 

Command Notes 



X/MISPELING/MSP/* 

Changes the first occurrence of 
"MISPELING" to "MSP" 

in every line that contains it, but asks 
you to confirm each change before it 
i s made . 
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